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SECTION  I 


GENERAL 


1.  PURPOSE:  The  purpose  of  this  program  maintenance  manual  is  to  describe 
the  APP  system  in  sufficient  level  of  detail  to  enable  those  persons 
responsible  for  the  APP  software,  it's  maintenance  and  modification,  to 
effectively  and  efficiently  perform  these  functions.  It  is  also  the  purpose  to 
be  in  compliance  with  Department  of  the  Army  and  USACAA  directives  in 
the  documentation  of  computer  software  (reference  items  F,  H,  I). 

Documentation  for  each  of  the  three  APP  computer  programs  includes  a 
description,  purpose,  and  organization  of  the  utility,  a  logic  flow  chart,  the 
source  code  listing,  and  examples  of  the  input  and  output  data  files. 
Included  is  a  data  variable  dictionary,  a  discussion  of  the  environment  in 
which  the  utility  operates  and  the  maintenance  procedures  to  be  followed. 

2.  STANDARDS:  The  three  programs  that  constitute  the  Ammunition 
Postprocessor  are  implemented  in  two  programming  languages  as  follows: 

AMMUNITION  BUFFER  PROGRAM  -  FORTRAN  IV 
EQUIVALENT  STYLIZED  DAY  PROGRAM  -  SIMSCRIPT  II.5 
REPORT  GENERATOR  PROGRAM  -  FORTRAN  IV 

The  UNIVAC  Publication,  UP4060  provides  the  reference  in  the  FORTRAN 
IV  implementation.  Reference  items  S,  T  and  U  should  be  refered  to  for  the 
SIMSCRIPT  11.5  implementation. 

2.1  OPERATING  SYSTEM:  These  programs  are  executed  and  maintained  on  the 
UNIVAC  EXECUTIVE  -  8  operating  system  (OS)  installed  on  the  UNIVAC 
1100/82  computer  system  at  the  USA  Concepts  Analysis  Agency. 

2.2  PROGRAM  COMPILATION:  The  operating  system  library  (SYS$LIB$) 
contains  the  compilers  used  to  produce  the  object  code.  The  Executive  -  8 
commands  to  call  the  compilers  are  as  follows: 

FORTRAN  IV  @FOR,  options  SI,  RO 

SIMSCRIPT  II.5  (9SIM25,  options  SI,  RO 

The  language  references  contain  the  specific  compiler  options,  re¬ 
compilation  procedures  and  compiler  error  diagnostics.  In  the  notation 
above,  SI  refers  to  the  source  code  input  file-name,  element-name.  RO 
refers  to  the  relocatable  object  code  program  elements  and  file-name. 

3.  PROJECT  REFERENCES:  project  references  can  be  found  in  Appendix  A. 
This  documentation  effort  was  achieved  through  contractor  support  to 
USACAA,  by  CACI,  Inc.,  under  contract  MDA903-80-D-0668.  The 
Contracting  Officers  Technical  Representative  (COTR)  was  Mr.  Hugh  Jones, 
Models  Group,  Msethodology  and  Computer  Support  Directorate,  USACAA. 
This  manual  is  one  of  a  series  to  document  the  WARRAMP  Methodology's 
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computer  software.  Volume  I  of  the  series  contains  the  user's  portion  of  the 
instructions  of  this  software. 

TERMS  and  ABBREVIATIONS:  Terms  and  abbreviations  are  used  through¬ 
out  to  facilitate  communications  of  sets  of  words  (acronyms)  and  analytical 
expressions  common  to  the  methodology  and  mililtary  operations  research. 
A  complete  listing  may  be  found  in  Appendix  B  of  this  manual.  In  addition, 
the  full  statement  of  the  expression  followed  by  the  acronym  or  term  in 
closed  parenthesis  is  used  throughout  the  manual  on  the  first  occurence  of 
its  use. 
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SECTION  II 


SYSTEM  DESCRIPTION 

GENERAL  DESCRIPTION:  The  WARRAMP  Ammunition  Postprocessor  is 
the  ammunition  portion  of  the  WARRAMP  analytical  methodology.  It  exists 
to  merge  and  organize  (buffer)  combat  equipment  loss  and  ammunition 
expenditure  data  from  historical  sources  and  the  combat  simulation 
modeling  sources.  Once  buffered  computations  are  performed  to  produce 
the  equivalent  stylized  day  values,  this  is  then  followed  by  the  computation 
of  ammunition  expenditures  in  a  rate  form.  The  produced  expenditure  rate 
supports  the  US  Army's  operations  and  planning  functions  and  the  budgeting 
process.  As  such,  the  programs  documented  herein  are  unique  and  have  the 
sole  application  of  supporting  the  WARRAMP  methodology.  The 
relationships  of  the  APP  function  to  WARRAMP  are  depicted  in  Figure 
II. 1. 1.  The  APP  major  components  are  highlighted  with  a  heavy  border. 

SECURITY  and  PRIVACY;  The  individual  software  components  (programs) 
are  cataloged  as  indicated  under  the  detailed  descriptions  for  each 
program.  In  each  case,  they  are  cataloged  in  the  public  mode  for  user 
access.  User's  are  asked  not  to  modify  or  edit  (write)  in  the  program  files. 
In  the  event  that  alteration  is  required  for  a  specific  purpose,  a  potential 
user  should  copy  the  program  to  a  file  under  his/her  user  identification,  and 
then  edit  the  file  as  desired.  In  event  of  error  detection  during  use,  the  user 
is  requested  to  note  the  error  by  program  line  and  forward  the  proposed 
correction  to  the  program  custodian,  so  that  the  record  program  may  be 
updated.  Test  (sample)  data,  either  input  or  output  and  the  programs 
contained  herein  are  unclassified.  User's  must  apply  the  appropriate 
security  classifications  to  their  data  files  and  are  responsible  for  the 
safeguard  of  printed  matter  accordingly.  User's  and  programmer  personnel 
are  directed  to  the  installation  computer  user's  guide  for  the  appropriate 
classification  levels.  Throughout  the  manual,  reference  is  made  to  classified 
data  files.  The  reference  is  made  to  the  file  content,  not  the  classified  file 
qualifier. 

The  evolution  of  the  WARRAMP  methodology  has  necessitated  changes  in 
the  APP  software.  This  documentation  supports  and  facilitates  such 
change.  It  is  incumbent  on  the  program  custodian  to  verify  and  validate 
changes  made  to  the  record  versions  of  the  programs  and  disseminate 
changes  to  this  manual. 

SYSTEM  APPLICATION:  Sections  I  and  II  of  the  APP  User's  Manual 
(Volume  III  of  the  WARRAMP  documentation  set)  provides  a  comprehensive 
description  of  the  Ammunition  Postprocessor  methodology  as  it  relates  to 
WARRAMP.  The  relationships  of  the  APP  utility  programs  are  presented  in 
Figure  II.3.1.  The  APP  processes  are  interrelated  as  depicted  in  the  figures; 
the  output  of  one  program  becomes  the  input  to  another  program.  The  APP 
data  flow  is  presented  in  Figure  11.3.2  and  assists  in  understanding  the  APP 
processes.  The  specific  functions  of  the  APP  utility  programs  are  addressed 
in  Section  III  under  individual  chapters  by  utility  program. 
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Figure  II.3.I  (Cont.) 
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SECTION  III 


Chapter  1 

THE  AMMUNITION  BUFFER  PROGRAM 


1.1  DESCRIPTION  OF  PROCESSING:  The  Ammunition  Buffer  program 
consists  of  two  routines.  The  program  driver  entitled  CEMRDLOG,  is 
labeled  as  to  its  function  which  is  to  read  the  theater  cycle  CEM  logistics 
report.  It  then  calls,  within  a  double  DO-LOOP,  the  subroutine  entitled 
CEMLOS  which  is  labeled  as  to  its  function,  and  reads  the  daily  CEM  loss 
data.  The  source  code  files  are  liberally  commented  for  ease  of 
understanding;  the  CEMRDLOG  routine  has  approximately  170  lines  of 
executable  code  and  the  (CEMRDLOS)  CEMLOS  subroutine  has 
approximately  ISO  lines  of  executable  source  code.  In  addition  to  the  read 
and  write  functions,  numerous  computations  are  performed  in  both  routines 
to  produce  the  output  data. 

1.1.1  PURPOSE/FUNCTIONS;  The  Ammunition  Buffer  (buffer)  program  is 
designed  to  read  three  data  files  produced  by  the  Concepts  Evaluation  Model 
(CEM)  and  two  manually  produced  data  files.  In  the  course  of  reading  the 
CEM  data  files  LOGREP  and  LOSSREP,  it  searches  for  selected  data  by  key 
word  identification  and  location,  sequentially.  The  remaining  three  files  are 
read  sequentially  in  their  entirety.  The  title  alludes  to  the  purpose  of  the 
program,  that  is,  to  buffer  the  data  coming  from  the  two  key  combat 
models.  CEM  and  the  Combat  Sample  Generator  (COSAGE).  Consequently, 
it  reads  data,  sums  values,  equivalences,  computes  (factors)  values  and 
writes  the  output  data  for  the  ensuing  programs  to  utilize. 

1.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  program  I/O 
structure  is  presented  in  Figure  III.  1.1.  The  internal  integer  value  indicates 
the  initial  order  of  input  for  the  input  data  files.  The  integer  outside  the 
flow  chart  symbol  at  the  upper  left  is  the  logical  unit  assigned  to  the  input 
and  output  data  files  by  the  program  run  (Start  file)  stream  and  is  expected 
by  the  program. 

1.1.2. A  INPUT  DATA  and  DATA  BASE:  The  five  input  data  files  are  not  part 
of  a  formal  database  organization.  The  files  produced  by  CEM  are  provided 
to  the  user/analyst  in  the  course  of  the  study  program  progress,  and  the  two 
manually  developed  files  are  maintained  by  the  user  analyst  and  updated  in 
the  course  of  the  study  program  to  provide  current  data.  It  is  incumbant  on 
the  user/analyst  to  properly  catalog  and  maintain  the  input  data  files. 
Likewise  the  user /analyst  must  be  consulted  for  the  cataloged  file  name  and 
element  name  of  the  current  data  files.  A  version  name  may  be  appended  to 
the  element  name  to  assist  in  providing  a  data  audit  trail  and  distinguish  the 
current  file.  The  CEM  produced  data  files  are  lengthy  and  only  a  sample  of 
the  file  is  reproduced  here  in  the  interest  of  brevity.  The  formats  of  the 
data  read  is  given  in  Volume  III  of  this  documentation  set,  Chapter  1.  Those 
discussed  in  that  volume  are  not  duplicated  here.  Below  is  a  summary  of  the 
input  data  files. 
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o  TRMAPS  -  The  file  is  maintained  on  the  system  in  a  user  designated 
mass  storage  device  as  a  file  element  under  a  user  specified  program 
file.  During  program  execution,  it  is  edited  to  temporary  file  labeled 
logical  unit  (12),  to  be  used  as  input  to  the  program.  It's  name  alludes 
to  it's  function,  that  is  to  provide  mapping  data  to  the  overall 
program.  It  is  short,  27  records  in  length,  but  the  data  provided  in 
records  2  and  3  is  significant  for  data  reading.  This  data  is 
alphanumeric  charactors  used  by  the  program  in  logic  tests  to 
determine  record  location  in  the  program  read  of  the  CEM  LOGREP 
and  LOSSPEP  data  files.  Likewise  the  data  on  records  4  -  7  is  input  as 
alphanumeric,  though  presented  as  integer  to  enable  the  program  to 
read,  and  perform  logic  tests  on  the  LOGREP  and  LOSSREP  data 
files.  These  values  are  the  modeled  theater  cycles  (TC).  The  sample 
TRMAPS  data  file  is  presented  ir.  Figure  III.  1.2. 

o  TRCONS  -  The  file  is  maintained  on  the  system  in  a  user  designated 
mass  storage  device  as  a  file  element  in  a  user  specified  program 
file.  During  the  program  execution,  it  is  edited  to  a  temporary  file, 
labeled  for  the  logical  unit  (1 1),  to  be  used  as  input  to  the  program.  Its 
name  alludes  to  the  data  purpose,  which  is  to  provide  controlling  data 
for  the  equivalent  stylized  day  computations  in  the  ESD  program.  In 
this  (Buffer)  program  the  data  is  read  and  then  written  out  to  unit  7, 
the  AMMOIN  file  which  is  eventually  passed  to  the  ESD  program.  The 
data  values  are  the  stylized  quantities  of  each  equipment  type  (record) 
played  or  modeled  for  each  combat  sample  (column)  (4  samples  =  1  set) 
of  the  set.  The  example  TRCONS  file  is  presented  in  Figure  III.  1.3. 

o  LOGREP  -  This  file  is  maintained  on  the  system  as  a  program  (print) 
file  by  the  user  /analyst.  This  file  placement  is  normally  the  result  of 
the  user  editing  and  partitioning  the  CEM  output  which  is  generally  on 
tape  at  the  conclusion  of  a  CEM  run.  The  file  resides  on  a  user 
designated  mass  storage  device.  During  the  program  execution  the  file 
is  referenced  to  logical  unit  10  via  the  @USE  command  in  the 
runstream  in  preparation  for  input  to  the  program.  The  file  name 
alludes  to  the  logistics  data  contained  within  it.  However,  not  all  data 
is  utilized  and  the  file  is  lengthy.  The  alphanumeric  data  input  in  the 
file  TRMAPS  provides  logic  comparison  background  data  for  the 
program's  record  by  record  search. 

The  initial  reading  using  the  sample  data  in  Figure  III.  1.4  of  this  file  is 
as  follows: 

1)  Records  are  advanced  through  DO-loops  or  go-to's  until  the 
"BLUE"  and  "MARY"  from  the  caption  "BLUE  FORCE 
THEATERWIDE  LOGISTIC  SUMMARY"  are  found  via  logic  tests 
of  alphanumerics. 

2)  Records  are  advanced  through  DO-loops  or  go-to's  until  the  "PE" 
from  the  record  caption  "PERSNL"  is  identified  via  logic  tests. 
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3)  An  advance  to  the  next  record  is  made  (for  bJue)  and  the  values  of 
the  record  are  read  beginning  with  the  1  (for  type  of  personnel 
(crew  member)  accross  the  record;  twelve  real  values  are  read  and 
stored  in  a  temporary  array  called  DATA12(I). 

o  LOSSREP  -  This  file  is  maintained  on  the  system  as  a  program  (print) 
file  by  the  user/analyst.  Like  the  LOGREP,  the  file  placement  is 
normally  the  result  of  the  user  editing  and  partitioning  the  CEM 
output,  which  is  generally  on  tape  at  the  conclusion  of  the  CEM  run. 
The  file  resides  on  a  user  designated  mass  storage  device.  During  the 
program  execution  this  file  is  referenced  to  logical  unit  15  via  the 
@USE  command,  in  the  runstream  in  preparation  for  input  to  the 
program.  The  file  name  alludes  to  the  type  of  data  in  it;  loss  data  for 
each  day  modeled  in  the  theater  campaign.  An  example  of  this  data  is 
in  Figure  II1.1.5;  the  report  for  each  day  has  four  sections,  a  TOTAL 
section,  and  PART  1,  PART  2  and  PART  3  sections.  Not  all  data 
present  in  the  file  is  read  or  used.  A  record  by  record  search  is  made 
until  programed  logic  tests  are  satisfied,  after  which  selected  data  are 
read  and  stored  in  arrays  for  subsequent  computations. 

The  initial  reading  of  the  sample  data  presented  in  Figure  III.  1.5,  by 
the  program,  would  proceed  as  follows: 

1)  Records  are  advanced  in  the  CEMLOS  routine  through  a  go-to 
statement  until  the  "LOSSES"  in  the  caption  "LOSSES  DURING 
DAY  1"  is  read  and  a  logic  test  satisfied. 

2)  The  value  of  "Day",  an  integer  variable  is  read  from  the  buffer 
(the  record  read  above  is  held  in  the  buffer);  in  this  case  it  is  set 
to  the  integer  1,  or  day  1. 

3)  If  the  value  of  "Day"  is  equal  to  the  day  counter  in  the  program 
the  next  record  is  read  and  controlled  with  go-to  statements  until 
it  advances  two  records  and  reads  the  "BLUE  TOTAL"  caption. 

4)  The  program  then  advances  records  until  the  "RED  CATEGORY 
CAUSING  LOSS"  is  read,  satisfying  a  logic  test. 

5)  The  program  then  advances  through  the  data  file  records  until  the 
"TAN"  of  the  "TANKS  (PERM)"  caption  is  read,  satisfying  a  logic 
test. 

6)  At  this  position  in  the  file  the  variable  CASTAK  is  read  and  set  to 
the  real  value  169.83,  under  the  "tank"  column  and  the  variable 
TOTTAK  is  read  and  set  to  the  value  419.15,  under  the  "Total" 
column  as  result  of  a  read  of  the  buffer  (again  the  buffer  is 
holding  the  contents  of  the  record  read  in  5  above). 

7)  The  program  advances  a  record  and  reads  two  selected  items  of 
data,  setting  the  variable  CSTTAK  to  103.96  from  the  "Tank" 
column  and  the  variable  TTTTAK  to  285.25  from  the  "Total" 
column. 
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o  AMMOl  -  This  file  is  maintained  on  the  system  as  a  program  (PRINTS) 
file  by  the  user/analyst.  Like  the  other  CEM  produced  files,  the  file 
placement  is  normally  the  result  of  the  user  editing  and  partitioning 
the  CEM  output,  which  may  be  on  tape  at  the  conclusion  of  a  CEM 
run.  The  file  resides  on  a  user  designated  mass  storage  device.  During 
the  program  execution,  this  file  is  referenced  to  logical  unit  14  via  the 
@USE  command  in  the  execution  runstream  in  preparation  for  input  to 
the  program.  This  file  contains  ammunition  expenditure  data  (hence 
the  name)  in  the  form  of  quantities  of  equipment  engaged  and  hit. 
This  data  is  used  computationally  in  the  program  and  partitioned  into 
K-kills  and  M-kills.  An  example  of  the  AMMOl  data  is  depicted  in 
Figure  III.  1.5. 

1.1. 2.B  OUTPUT  DATA  and  DATA  FILES:  The  execution  of  the  Buffer 

produces  two  output  files  for  the  user  in  addition  to  the  program  execution 
information  from  the  runstream  (TPF$). 


o  AMMOIN  -  The  **AMMOIN  data  file  is  the  major  product  of  the 
program  execution.  It  is  assigned  temporarily  in  the  execution 
runstream  to  logical  unit  7  with  a  reserved  space  of  1000  tracks  on  a 
system  designated  mass  storage  device.  At  the  conclusion  of  the 
runstream  execution  it  is  edited  into  a  permanently  cataloged  user 
program  file.  The  records  and  formats  of  this  file  is  discussed  in 
Volume  III,  Chapter  1  of  this  documentation  set.  A  sample  of  the  file 
is  presented  in  Figure  III.  1.7. 

o  RUNREC  -  An  example  of  the  breakpointed  output  file  RUNREC  is 
depicted  in  Figure  III.  1.8.  The  file  is  not  sent  to  the  printer  in  the 
execution  runstream,  but  is  retained  in  a  permanent  cataloged  file  for 
reference  as  required  by  the  analyst. 

1.1.2.C  VARIABLE  DICTIONARY;  The  following  variables  are  employed  in 
the  program. 


Name 

BLCMAM(I) 


BWPLYD 

CAT 


Definition 


A  one-dimensional  integer  array  employed  to 

map  the  Blue  CEM  weapon  mumbers  into  the 
APP  format,  reserved  as  30. 

An  integer  counter  to  count  the  number  of  Blue 
weapon  types  deployed  in  the  force  array. 

An  integer  variable  denoting  weapon  category 
for  program  logic  tests.  The  values  of  the 
variable  may  be: 

1  =  personnel  (PERS) 

2  =  tanks  (TANK) 

3  =  light  armored  vehicles  (APCS) 
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4  =  helicopters  (HELO) 


5  =  Anti-tank  and  Mortor  weapons  (AT/M) 

6  =  artillery  weapon  systems  (ARTY) 


DATA  12(1) 

A  one  -  dimensional  real  array  employed  in  the 
programed  reading  of  the  logistic  report  reserved 
as  12  when  twelve  values  per  line  are  expected. 

CASAPC 

A  real  variable  used  in  the  program  set  to  the 
daily  "casualty"  level  or  quantity  of  armored 
personnel  losses. 

CASCPE 

A  real  variable,  set  in  the  program  to  the  daily 
"casualty"  level  or  quantity  of  armored  vehicle 
crew  (total)  personnel  losses. 

CASNPE 

A  real  variable,  set  in  the  program  to  the  daily 
"casualty"  level  or  total  quantity  of  personnel 
(non-crew)  losses. 

CASTAK 

A  real  variable,  set  in  the  program  to  the  daily 
"casualty  level  or  total  quantity  of  permanent 
tank  losses. 

CSTAPC 

A  real  variable,  set  in  the  program  to  the  daily 
"casualty"  level  or  total  quantity  of  temporary 
armored  personnel  vehicle  losses. 

CSTTAK 

A  real  variable,  set  in  the  program  to  the  daily 
"casualty"  level  or  total  quantity  of  temporary 
tank  losses. 

DAY 

An  integer  variable,  set  in  the  program  to  the 
day  of  combat  modeled  as  read  from  the  loss 
report. 

DC 

A  common  integer  variable  used  as  a  counter  for 
the  day  of  combat  modeled. 

DATA  15(1) 

A  one-dimensional  real  array  employed  in  the 
programed  reading  of  the  logistic  report  when 
fifteen  values  per  line  are  expected;  reserved  as 
15. 

DEPLOY  (I,J,K,L) 

A  four-dimensional  real  array  (matrix)  used  to 
hold  the  deployed  weapon  data  by  type,  category, 
side  and  theater  cycle;  12  by  6  by  2  by  45. 

DEPOLD  (1,3) 

A  two-dimensional  real  array  used  to  hold  the 
"old"  or  previous  theater  cycle  deployed  weapon 
data  by  type  and  category;  12  by  6. 

HYTYPE  (1,3) 

ISIDE 

KEH 


LINID 

LINIF(I) 

LOSTPK 

(I,J,K,L) 

LRCSTK 

LRCSIA 

LRCSAR 


A  two-dimensional  integer  array  used  to  contain, 
or  is  set  to  the  highest  "type"  by  quantity  of 
weapons  deployed  for  each  side;  6  by  2. 

An  integer  variable  used  to  denote  a  forces  side, 
where: 

1  =  Blue  force 

2  =  Red  force 

An  integer  variable  used  in  the  program  text  for 
the  combat  classifications: 

1  =  Engaged 

2  =  K,  or  catastrophic  kill  (loss) 

3  =  M,  or  mobility  kill  (loss) 

An  alphanumeric  variable  set  in  the  program  to 
read  the  first  four  charactors  of  an  input  record. 

An  alphanumeric,  one-dimensional  array 
employed  in  the  program  to  read  a  record  of  data 
and  through  logic  tests,  determine  the  location 
of  the  record  pointer  in  an  input  file.  Reserved 
as  22. 

A  common,  four-dimensional,  real  array 
employed  in  the  program,  denoting  the  ration  of 
K-kill  to  total  combat  losses  for  each  equipment 
by  type,  category,  side  and  theater  cycle. 
Reserved  12  by  6  by  2  by  45. 

A  real  variable  set  in  the  program  to  the  ration 
of  daily  permanent  to  total  losses  of  red  side 
tanks. 

A  real  variable  set  in  the  program  to  the  ratio  of 
daily  permanent  to  total  losses  of  red  side 
combat  vehicles  and  armored  personnel  carriers. 

A  real  variable  set  in  the  program  to  the  ratio  of 
daily  permanent  to  total  losses  of  all  red 
armored  vehicles;  includes  tanks,  APC's,  ICV's, 
etc. 
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LRCSPE 


A  real  variable  set  in  the  program  to  the  ratio  of 
daily  permanent  to  total  losses  of  red  combat 
pesonnel. 


NCEMWP(I)  A  one-dimensional,  integer  array,  set  to  the 

number  of  CEM  weapon  types  for  each  side. 

NGAG  A  integer  variable  used  in  the  program  and  set  to 

the  engagement  under  evaluation,  a  value  from  1 
to  8.  Historically  the  engagement  types  have 
been: 

1  =  Blue  attacking  Red  delay  force. 

2  =  Blue  attacking  Red  prepared  defense. 

3  =  Blue  attacking  Red  hasty  defense. 

4  =  Blue  -  Red  meeting  engagement. 

5  =  Red  attacking  Blue  hasty  defense. 

6  =  Red  attacking  Blue  prepared  defense. 

7  =  Red  attacking  Blue  delay  force. 

8  =  Inactive,  Defense  light  or  static. 

NODAYS  An  integer  variable  computed  to  be  the  value  of 

TRMAX  times  4,  which  is  the  number  of  days  of 
combat  modeled. 

NOS(I)  A  one-dimensional  integer  array  that  contains 

the  following  values: 

NOS(l)  =  total  blue  weapons  modeled 

NOS(2)  =  total  number  of  red  weapons 
modeled. 

NOS(3)  =  total  number  of  combat  samples 

NOS(4)  =  total  number  of  equivalent  stylized 
days  of  combat. 

NOS(5)  =  number  of  engagements  modeled. 

NM1(I)  A  one-dimensional  alphanumeric  used  to  read  in 

characters  in  groups  of  2;  reserved  as  6  and  used 
in  logic  tests.  Contains  the  descriptors  for  each 
of  the  6  weapon  categories. 
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NM2(I) 

NM3  (I) 

NUMTYP  (I,  3) 

PLDYSY  (I,  J,  K) 


RATIOB  (I) 


RATIOR(I) 


RDAMCM  (I) 


RDCMAM  (I) 


A  one-dimensional  alphanumeric  array  used  to 
read  in  characters  in  groups  of  6  which  contains 
the  descriptors  of  each  of  the  6  weapon 
categories.  Used  in  logic  tests  and  output 
labels.  Reserved  as  6. 

A  one-dimensional  alphanumeric  array  used  to 
read  in  characters  in  groups  of  6,  reserved  as 
44.  Within  the  program  values  is  stored  in  the 
array,  related  to  the  data  for  each  cycle. 

A  two-dimensional  integer  array  that  holds  the 
number  of  weapons  types  in  each  category  by 
side;  6  by  2. 

A  common,  three-dimensional  integer  array  that 
is  set  to  the  status  of  each  weapon  type,  in  each 
category  by  side;  12  by  6,  by  2.  The  values  used 
are: 

1  =  modeled  weapon  type 

0  =  weapon  type  not  modeled  for  category  3 

(light  armor);  on  the  Red  side  these  values  may 
be  found: 

1  =  Red  APC  modeled 

0  =  Weapon  type  not  modeled 

9  =  Red  IGV  modeled 

A  one-dimensional  real  array  that  is  set  to  the 
computed  ratio  of  personnel  engaged  to  the  total 
for  the  blue  side  in  each  combat  engagement 
sample;  reserved  as  8. 

A  one-dimensional  real  array  set  to  the 
computed  ratio  of  personnel  engaged  to  the  total 
for  the  red  side  in  each  combat  engagement 
sample;  reserved  as  8. 

A  one-dimensional  integer  array  utilized  to  hold 
the  Red  side  AMMO  weapon  numbers  and  map 
them  into  the  GEM  weapon  numbers  (merge  or 
equivalence);  reserved  as  40. 

A  one-dimensional  integer  array  utilized  to  hold 
the  red  side  GEM  weapon  numbers  and  map  or 
equivalence  them  with  the  AMMO  weapon 
numbers.  Reserved  as  40. 
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REPLEP  (I,  3,  K,  L) 


REPLIP  (I,  3,  K,  L) 


RID  (I,  3,  K,  L) 


RWPLYD 

STYLZD  (I) 


SUMAPB  (I,  3,  K) 


SUMMER  (I,  3,  K) 


SUMPEB  (I,  3,  K) 


SUMPER  (I,  3,  K) 


A  four  dimensional  real  array  that  is  set  to  the 
quantity  of  weapons  replacements  made  from  the 
theater  pool  for  each  type  weapon,  category, 
side  and  theater  cycle.  Reserved  as  1 2  by  6,  2  by 
215. 

A  four  dimensional  real  array  that  is  set  to  the 
quantity  of  weapons  replacements  made  from  the 
General  Support  maintenance  to  the  theater  pool 
for  each  weapon  type,  category,  side  and  theater 
cycle.  Reserved  as  12  by  6  by  2  by  45.  Not  used 
in  the  program. 

A  four  dimensional  real  array  that  is  set  to  the 
quantity  of  weapons  (returned)  to  duty  from 
direct  support  maintenance,  general  support 
maintenance  and  the  theater  pool  for  each 
weapon,  category,  side  and  theater  cycle. 
Reserved  as  12  by  6  by  2  by  45. 

An  integer  variable  set  to  the  number  of  red 
weapon  systems  played  (modeled). 

A  one-dimensional  integer  array  set  used  to 
read/write  the  quantities  of  weapons  per  stylized 
sample.  Reserved  as  9,  the  normal  number  of 
samples  is  4. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  blue  APC's  in  each  of  the  three 
factors  groups  (engaged,  K-kill,  M-kill)  by  the 
APC  type  and  engagement  on  CEM  sample  (8). 
Reserved  as  3  by  12  by  8. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  red  helicopters  in  each  of  the  three 
factor  groups  (engaged,  K-kill,  M-kill)  by 
helicopter  type  and  engagement  or  CEM 
sample.  Reserved  as  3  by  5  by  8. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  blue  personnel  in  each  of  the  three 
factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  type  (CEM  sample),  reserved  as  3  by 
1  by  8. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  red  personnel  in  each  of  the  three 
factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  type  (CEM  sample),  reserved  as  3  by 
1  by  8. 
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SUMTKB  (I,  3,  K) 


SUMAPR  (I,  3,  K) 


SUMARB  (I,  3,  K) 


SUMARR  (I,  3,  K) 


SUMATB  (I,  3,  K) 


SUMATR  (I,  3,  K) 


SUMHEB  (I,  3,  K) 


SUMTKR  (I,  3,  K) 


SUMREP  (I) 


A  three  dimensional  real  array  that  holds  the 
daily  sum  of  blue  tanks  by  type  in  each  of  the 
three  factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  type  or  CEM  sample.  Reserved  as  3 
by  12  by  8. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  red  A  PC's  by  type  in  each  of  the 
three  factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  or  CEM  sample.  Reserved  as  3  by 
12  by  8. 

A  three  dimensional  real  array  that  holds  the 
daily  sum  of  blue  artillery  by  type  in  each  of  the 
three  factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  or  CEM  sample.  Reserved  as  3  by  8 
by  8. 

A  three  dimensional  real  array  that  is  set  to  the 
daily  sum  of  red  artillery  by  type  in  each  of  the 
three  factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  or  CEM  sample.  Reserved  as  3  by  8 
by  8. 

A  three  dimensional  real  array  that  is  set  to  the 
daily  sum  of  blue  anti-tank  or  mortor  systems  by 
type  in  each  of  the  three  classes  (engaged,  K- 
kill,  M-kill)  by  engagement  or  CEM  sample. 
Reserved  as  3  by  52  by  8. 

A  three  dimensional  real  array  that  is  set  to  the 
daily  sum  of  red  anti-tank  or  mortor  systems  by 
type  in  each  of  the  three  classes  (engaged,  K- 
kiil,  M-kill)  by  engagement  or  CEM  sample. 
Reserved  as  3  by  52  by  8. 

A  three  dimensional  real  array  that  is  set  to  the 
daily  sum  of  blue  helicopters  by  type  in  each  of 
the  three  classes  (engaged,  K-kill,  M-kill)  by 
engagement  or  CEM  sample.  Reserved  as  3  by  5 
by  8. 

A  three  dimensional  real  array  that  is  set  to  the 
daily  sum  f  red  tanks  by  type  in  each  of  the 
three  factor  classes  (engaged,  K-kill,  M-kill)  by 
engagement  or  CEM  sample.  Reserved  as  3  by  5 
by  8. 

A  one-dimensional  real  array  that  is  set  to  the 
sum  of  red  personnel  lost  to  all  causes  in  each 
engagement  or  CEM  sample.  Reserved  as  8. 
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SUMRTN  (I) 


A  one-dimensional  real  array  set  to  the  sum  of 
red  tanks  of  all  types  lost  to  all  causes  in  each 
engagement  or  CEM  sample.  Reserved  as  8. 


SUMR1C  (I) 

SUMRAP  (I) 

SUMRIA  (1) 

SUMRAR  (I) 

SURVAS  (I,  3,  K,  L) 

TC 

TP 

TRMAX 

THREPL  (I,  3,  K,  L) 

TOT A PC 

TOTCPE 

TOTNPE 


A  one  dimensional  real  array  set  to  the  sum  or 
red  ICV's  of  all  types  lost  to  all  causes  in  each 
engagement  or  CEM  sample.  Reserved  as  8. 

A  one  dimensional  real  array  set  to  the  sum  of 
red  A  PC's  of  all  types,  lost  to  all  causes  in  each 
engagement  type.  Reserved  as  8. 

A  one  dimensional  real  array  set  to  the  sum  of 
red  ICV/APC's  of  all  types,  lost  to  all  causes  in 
each  engagement  type.  Reserved  as  8. 

A  one  dimensional  real  array  set  to  the  sum  of 
red  tanks  of  all  types  lost  to  all  causes  in  each 
engagement  type  or  CEM  sample.  Reserved  as  8. 

A  four  dimensional  real  array  that  is  set  to  the 
quantity  of  weapons  surviving  (assets)  for  each 
type,  category,  side  and  theater  cycle.  Reserved 
as  12  by  6  by  2  by  45. 

A  common  integer  variable  set  to  the  value  of 
the  theater  cycle,  varies  from  initial  value  of  1 
to  45. 

An  integer  variable  set  to  the  value  of  type 
weapon  as  an  index  in  Do-loops. 

An  integer  variable,  common,  set  on  input  to 
maximum  quantity  of  theater  cycles  modeled  - 
usally  45. 

A  four  dimensional  real  array  set  to  quantity  of 
weapons  systems,  by  type  replaced  in  the  theater 
for  each  side  in  each  theater  cycle;  reserved  as 
12  by  6  by  2  by  45. 

A  real  variable  set  to  the  total  daily  red  APC  (all 
types)  permanent  losses. 

A  real  variable  set  to  the  total  daily  crew 
personnel  losses. 

A  real  variable  set  to  the  total  daily  non¬ 
crewmember  personnel  losses. 
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TOTTAK 

A  real  variable  set  to  the  total  daily  red  tank  (all 
types)  permanent  (K-kill)  losses. 

TTTTAK 

A  real  variable  set  to  the  total  daily  red  tank  (all 
types)  temporary  (M-kill)  losses. 

TTTAPC 

A  real  variable  set  to  the  total  daily  red  APC  (all 
types)  temporary  (M-kill)  losses. 

1.1.3  PROGRAM  PROCESSING;  The  CEMRDLOG  routine  is  the  program 
driver  and  calls  the  subroutine  CEMRDLOSS  for  daily  data;  assuming  the 
normal  modeling  of  a  180  day  war,  180  calls  will  be  made  to  the  subroutine. 
There  are  6  common  variables  and  arrays  to  the  program  to  allow  access  by 
both  CEMRDLOG  and  CEMRDLOSS,  all  other  variables  are  local  to  the 
routines.  These  common  variables  are: 

LOSTPK  (12,  6,  2,  45) 

TRMAX 

DC 

TC 

SURVAS  (12,  6,  2,  45) 

PLSTAT  (12,  6,  2) 

The  high  level  program  features  are  depicted  in  Figure  III.  1.9. 

1.1. 3.  A  PROGRAM  RUN  DESCRIPTION:  The  procedure  or  "START"  file  to 
execute  the  Buffer  program  is  depicted  and  discussed  in  Volume  III,  Chapter 
1  of  this  documentation  set.  The  object  program  and  source  code  resides  in 
permanently  cataloged  program  file  elements  under  the  current 
user /analyst's  user  identification  number.  The  execution  runstream  is 
designed  to  be  submitted  as  a  batch  run  to  the  system.  The  submission  is 
normally  made  in  the  demand  mode  from  a  computer  terminal.  During  the 
program  execution,  all  input  data  and  computations  are  written  out  to  either 
the  execution  runstream  (Unit  6)  to  be  captured  in  the  breakpointed  file  or 
the  output  file,  AMMOIN  (Unit  7).  The  maintenance  programmer  or  analyst 
can  trace  the  flow  of  execution  through  this  medium. 

1.1. 3. B  PROGRAM  LOGIC:  The  program  is  flow  charted  in  Figures  III.  1.10 
(CEMRDLOG)  and  Figure  III.  1.11  (CEMRDLOS).  The  source  (symbolic)  code 
is  depicted  in  Figures  HI. 1.12  (CEMRDLOG)  and  Figure  III. 1.13 
(CEMRDLOS). 

1.1. 3. C  PROCESSING  FEATURES:  The  Buffer  program  performs  the 

following  instructions: 

o  Initializes  the  program  CEMRDLOG 

o  Reads/writes  the  TRMAPS  data  and  counts  weapons 

o  For  each  theater  cycle  reads  the  LOGREP,  part  1,  surviving  assets 
data 
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o  For  each  theater  cycle  reads  the  LOGREP,  part  2,  deployed, 

replacement,  returned  to  duty  data. 

o  Computes  the  LOSTPK  values. 

o  Maps  CEM  weapon  system  (equipment)  numbers  to  APP  system 

numbers. 

o  Reads/writes  the  TRCONS  (stylized  quantity)  data. 

o  Computes  daily  quantities  (cycle  quantities  divided  by  4). 

o  Partitions  the  weapon  systems  data  into  direct  support  and  general 
support  quantities. 

o  For  each  day,  calls  the  CEMLOS  subroutine  to: 
oo  Read  the  LOSSREP  daily  data, 
oo  Computes  ratios  of  permanent  losses, 
oo  Computes  the  daily  K-kills  and  M-kills. 
oo  Computes  the  daily  red  loss  totals, 
oo  Separates  close  air  support  losses  from  other  red  losses, 
oo  Writes  out  the  computed  data, 
oo  Returns  control  to  CEMROLOG. 
o  Writes  out  data  for  the  next  call  to  the  subroutine  CEMLOS. 

1.2  OPERATING  ENVIRONMENT:  The  Buffer  program  is  implemented  on  the 
USACAA  UNIVAC  1100/82  computer.  The  program  is  submitted  in  a 
demand  mode  and  is  processed  in  a  batch  environment  for  efficient  use  of 
resources.  It  requires  approximately  3.5  minutes  of  CPU  time  for 
execution.  The  program  is  developed  under  the  UNIVAC  architecture  (36 
bit)  and  requires  approximately  55,000  words  (36  -  bit)  of  main  core  memory 
for  execution. 

1.2.1  HARDWARE:  The  UNIVAC  1100/82  mainframe  and  peripheral 
devices  supports  the  program  execution.  The  fixed  or  removable  disk  (on¬ 
line)  storage  requirements  are  as  follows: 

UNIT  7  -  1000  tracks 

UNIT  8  -  1000  tracks 

UNIT  10  -  1000  tracks 
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riW 


UNIT  11 


UNIT  11  -  default,  128  tracks 
UNIT  12  -  default,  128  tracks 


UNIT  14 


UNIT  15 


1000  tracks 


1000  tracks 


Tape  processing  is  not  a  part  of  the  program  execution.  A  (user)  computer 
terminal  to  the  system  is  required.  A  printer  is  employed  for  a  hard  copy  of 
the  output.  Normally  the  operating  system  executive  directs  the  assignment 
of  the  ma^s  storage  (disk)  devices. 

1.2.2  SUPPORT  SOFTWARE;  The  program  compilation  and  execution 
requires  the  following  system  processors: 

@FOR  -  The  FORTRAN  language  processor. 

(9MAP  -  The  MAP  processor  or  collector  to  form  the  executable 

program  from  the  relocatable  object  code. 

(9ED  -  The  system  editor  processor 

1.2. 2.  A  OPERATING  SYSTEM:  The  program  was  developed  and  implemented 
on  the  UNIVAC  1100/82  operating  system.  The  features  of  the  EXECUTIVE 
-  8  control  language  and  the  standard  system  library  (SYS$LIB  and 
(SYS$RLIB$)  provide  the  essential  support. 

1.2.2. B  COMPILER:  The  operating  system  library  contains  the  FORTRAN  IV 

compiler  and  is  accessed  by  the  EXECUTIVE  -  8  command  @FOR. 

1.2.3  DATA  BASE:  The  data  base  and  files  necessary  for  program 
execution  were  discussed  in  paragraph  1.1. 2. A.  These  files  are  all 
FIELDDATA  and  in  System  Data  Format.  These  files  exist  as  user/analyst 
cataloged  files  and  elements  and  are  not  part  of  a  formal  data  base 
structure. 

1.3  MAINTENANCE  PROCEDURES:  The  relative  size  of  the  Buffer 
program  minimizes  the  maintenance.  The  maintenance  extends  to  insuring 
that  a  copy  of  the  symbolic  code  is  preserved  (on  tape  or  cards),  that  page 
by  page  changes  are  made  to  this  documentation  as  changes/maintenance  is 
performed,  and  that  the  symobolic  code  be  annotated  with  comments  to 
insure  that  future  programmers  can  track  the  changes.  The  following 
information  is  pertinent  to  the  program  maintenance  (space  provided  for 
notes): 

Source  (symbolic)  code  Filename.Elementname: 

Absolute  (object)  code  Filename. Element  name: 

Space  Required,  source  code: 
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Space  Required,  absolute  code: 

Archived  tape  label,  location: 

Read/write  keys;  established  by  current  custodian,  name: 

1.3.1  PROGRAMMING  CONVENTIONS:  The  program  follows  standard 

FORTRAN  techniques.  High  lights  are  as  follows: 

o  The  program  symbolic  elements  are  liberally  commented  for  the 
functional  characteristics. 

o  All  format  statements  are  declared  at  the  beginning  of  the  program, 
o  Implied  do-loops  are  used. 

o  Variable  definitions  are  given  as  commented  records  at  the  beginning 
of  the  program. 

1.3.2  VERIFICATION  PROCEDURES:  This  program  is  verified  by 
performing  test  execution  runs  of  the  program  followed  by  hand  calculation, 
and  comparisons  of  the  results.  The  sequence  of  execution  is  tracked  by 
reviewing  the  two  output  files. 

1.3.3  ERROR  CORRECTION  PROCEDURES;  The  program  does  not  employ 
any  programmed  debugging  aids  or  calls  to  an  "error  -  found"  subroutine. 

Debugging  and  error  correction  is  accomplished  by  an  examination  of  the 
output.  Three  types  of  errors  that  may  occur  are: 

o  Data  (input)  errors  —  data  presented  in  a  mode  (integer  or  real 
alphanumeric)  other  than  expected  by  the  program  may  cause  an  error, 
which  may  be  presented  as  a  system  error. 

Data  presented  in  excess  of  the  reserved  arrays  may  induce  an  error. 
Debugging  of  data  must  be  accomplished  by  a  visual  examination  of 
the  data  files  (print  copy  or  at  the  terminal)  or  tracing  the  progress  via 
the  output  files. 

o  Program  error  -  program  errors  are  resolved  by  checking  the 
compilation  listing  and  obtaining  and  examining  a  relocatable  code 
listing  after  the  program  collection  ((3MAP)  to  insure  that  all 
references  and  call  addresses  are  resolved.  A  post  mortum  dump  may 
be  produced  by  using  the  (3PMD  Executive  -  8  command  in  the 
runstream  and  then  examining  the  contents  of  the  instruction  (1  - 
BANK)  bank  and  data  (D  -  BANK)  bank. 

o  System  error  -  the  run  output  file  (TPF$)  will  list  the  system  diagnosed 
errors  for  subsequent  tracing  and  correction.  These  errors  often  occur 
as  result  of  an  error  in  the  runstream. 

1.3.4  SPECIAL  MAINTENANCE  PROCEDURES:  No  special  maintenance 
procedures  are  developed  or  required  for  this  program. 
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CHAPTER  2 


EQUIVALENT  STYLIZED  DAY  PROGRAM 


2.1  DESCRIPTION  OF  PROCESSING;  The  Equivalent  Stylized  Day  (ESD) 
program  is  implemented  in  the  SIMSCRIPT  II.5  programming  language.  The 
syntax  of  the  language  with  the  lengthy  variable  naming  capability  has 
produced  an  easy  reading  program  though  the  program  does  not  employ  the 
use  of  the  simulation  (timing  routines)  features.  The  ESD  program  is  an 
accounting  type  program  that  reads  data,  computes  the  ESD  values  and 
writes  out  the  results.  This  is  achieved  through  the  Preamble,  which 
declares  the  data  structure;  MAIN,  which  is  the  driver,  and  which  makes 
calls  to  five  subroutines  called  ESD. MAP,  RESET.TOTAL1,  DAILY  .INPUTS, 
RATIO.COMP  and  ESD.COMP1. 

2.1.1  PURPOSE/FUNCTIONS:  The  ESD  program  was  developed  as  a 

component  to  the  APP  to  compute  the  equivalent  stylized  day  values  that 
were  previously  computed  by  the  Theater  Rates  Model  (TRM),  a  component 
of  the  AMMO  RATES  methodology.  Reference  item  Z  in  Appendix  A 
provides  historical  information  on  the  ESD  concepts  and  computations,  but  is 
not  directly  applicable  to  the  current  system.  The  program  is  designed  to 
read  four  input  data  files  and  produce  one  primary  output  file,  the  AMMOUT 
file.  Of  the  four  input  files,  AMMOIN  Is  produced  by  the  previously 
executed  Buffer  program,  and  the  MAPESD,  RPERCK  and  RSTYLO  are 
manually  created  by  the  user/anaiyst.  All  input  data  files  are  sequential  and 
read  in  their  entirety.  The  runstream  for  program  execution  breakpoints  a 
file  cataloged  as  APPPRINT  in  addition  to  the  runstream's  Temporary 
Program  File  (TPF$). 

2.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE;  The  program's  I/O 
structure  is  depicted  in  Figure  III.2.1.  The  numbers  inside  the  flow  chart 
symbols  for  the  input  data  files  is  the  sequence  that  the  file  is  called 
initially  by  the  program.  The  number  outside  the  symbol,  at  the  upper  left  is 
the  logical  unit  assigned  by  the  runstream  and  expected  by  the  program 
during  execution  for  I/O.  Through  out  the  documentation,  the  double 
asterisk  "**"  is  used  in  lieu  of  stating  a  specific  user  identification  number 
when  discussing  program  files. 

2. 1.2. A  INPUT  DATA  and  DATA  BASE:  The  three  input  data  files  are  not 

part  of  a  formal  database  organization.  These  files  are  maintained  by  the 
current  user /analyst,  and  in  the  case  of  the  manually  produced  files,  updated 
in  the  course  of  study  program  progression.  It  is  incumbent  on  the  user  to 
properly  catalog  and  maintain  the  data  files.  A  version  name  may  be 
appended  to  the  file  element  name  to  distinquish  between  like  -  named  files 
and  provide  an  audit  trail  by  linking  the  version  name  to  the  study  in 
progress.  The  formats  of  the  data  is  discussed  in  Volume  III,  Chapter  2  of 
this  documentation  set,  and  are  not  duplicated  here.  The  following  is  a 
summary  of  the  input  data  files. 

o  AMMOIN  -  The  **AMMOIN  input  data  file  was  the  product  of  the 
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Buffer  program.  It  is  assigned  as  a  permanently  cataloged  program 
(PRINT)  file  and  the  data  within  it  provided  to  the  program  via  the 
(dADD  -  EXECUTIVE-8  command  following  the  program  execution 
((dXQT)  statement,  thus  using  logical  unit  5  (by  default)  to  introduce 
data.  A  sample  of  this  data  file  is  depicted  in  Figure  III. 2.2.  Though 
produced  in  a  formatted  output,  the  data  is  read  utilizing  free 
formatted  read  statements.  The  data  is  read  sequentially  and  the  full 
content  of  the  file  is  read. 

o  MAPESD  -  The  data  file  is  manually  developed  by  the  user/analyst.  It 
is  normally  a  version  of  a  predecessor  file  updated  to  reflect  the 
results  of  the  current  study's  high-resolution  (COSAGE)  and  theater 
(CEM)  model  results.  It’s  length  (43  records)  and  organization  permit 
manual  editing  and  revision.  A  sample  of  the  data  file  is  depicted  in 
Figure  III.2.3.  The  data  is  read  as  free-formatted  for  input,  therefore 
the  organization  is  for  ease  of  editing  and  visual  verification.  The 
format,  by  the  depicted  records,  is  as  follows: 


Position 

Description 

Format 

-  Record  1  - 

First 

AVA  -  The  ESD  that  relates 
to  the  armor  versus 
armor  value. 

Integer 

-  Records  2-41  - 

(One  record  for  each  ESD  modeled) 

First 

ESD  sequence  number, used 
for  input  only,  to  relate 
to  the  input  sequence. 

Integer 

Second 

BLUE.WPN.PTR,  Blue  weapon 
pointer  to  one  of  the  modeled 
blue  weapons  related  to  the  ESD. 

Integer 

Third 

RED.QPN.PTR,  Red  weapon  pointer 
to  one  of  the  modeled  red 
weapons  related  to  the  ESD. 

Integer 

Fourth 

R.QTY. INDEX,  the  red  quantity 
index  or  value  of  the  red 
weapon  systems  who's  quantity 
relates  to  this  ESD. 

Integer 

Fil.’i 

B.RATIO.INDEX,  the  blue  ratio 
index  (0  or  1)  to  switch 
computational  methods  for  ESD. 

Integer 
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-  Records  42,  43  - 


Each  position  COMB. SAMPLE,  the  coefficient 

(total  positions  used  in  combining  samples 
=4  x  N.SAMPLE)  combining  samples, used  as 
a  percent  in  computations. 

In  sample  data,  the  values 
are  used  computationally  as  0.0 
or  1.0. 

o  RPERCK  -  The  data  file  is  manually  produced  by  the  user/analyst.  It 
is  normally  a  version  of  a  predecessor  file  updated  to  reflect  the 
results  of  the  current  study's  high-resolution  model  (COSAGE) 
results.  It's  length  (120  records)  and  organization  permit  manual 
editing  and  revision.  There  are  four  groups  of  sequential  records,  each 
group  containing  30  records.  The  groups  denote  red  (direct  fire) 
equipment  (weapon)  types  1  through  4;  the  30  records  denote  30  blue 
equipment  (weapon)  types.  On  each  record  there  is  an  integer 
identifying  the  blue  equipment  type  index  followed  by  the  percentage 
of  hits  that  are  K-kills  (blue  to  red)  in  the  stylized  set  (day).  The  value 
99.9  is  programmed  and  is  a  key  to  denote  that  the  particular  weapon 
(equipment)  was  not  modeled  or  played.  A  sample  of  this  data  file  is 
depicted  in  Figure  III.2.4. 

o  RSTYLO  -  The  **RSTYLO  data  file  is  manually  produced  as  a  program 
file  by  the  user/analyst.  It  is  normally  a  version  of  the  predecessor 
file  updated  to  reflect  the  results  of  the  current  study's  high  resolution 
model  (COSAGE)  results.  Its  length  (approximately  55  records)  and 
organization  permit  manual  editing  and  revision.  There  are  four 
groups  of  sequential  records;  each  group  has  the  number  of  records 
that  equates  to  the  number  of  equipment  types  denoted  in  the 
preceeding  RPERCK  file  with  a  value  other  than  99.9.  On  each  record 
there  is  one  (real)  data  entry  for  each  combat  sample  (normally  four). 
Each  entry  defines  the  ratio  of:  percent  hits  that  are  K-kills  to  the 
percent  that  are  M-kills.  The  data  value  is  the  quantity  of  equipment 
(weapon)  lost  in  the  stylized  red  force  to  the  blue  weapon  type.  The 
four  groups  of  data  equate  to  red  equipment  types  1  through  4. 
Currently  the  methodology  accounts  for  6  red  weapons  or  equipment 
types;  the  program  provides  for  the  input  of  red  types  1  through  4 
followed  by  the  computation  of  data  values  for  types  5  and  6  (indirect 
fire  systems). 

Red  equipment  5  is  computed  as  the  sum  (by  blue  equipment  type)  of 
types  3  and  4.  Red  equipment  6  is  computed  as  the  sum,  by  blue 
equipment  type,  of  losses  for  equipment  type  2  and  5.  An  example  of 
this  input  data  is  presented  in  Figure  III.2.5. 

.  1.2.B  OUTPUT  DATA  and  DATA  FILES:  The  program  produces  the 

♦♦AMMOUT  file  as  its  main  function;  the  **APPPRINT  file  is  produced  as  a 
breakpointed  file  to  capture  the  progress  of  program  execution  in  addition  to 
the  runstream  output  (TPF$)  file.  These  files  become  a  product  managed  by 


Integer 
(converted  to 
real) 


81 


I 


4 


the  current  user/analyst  and  are  not  a  part  of  a  formal  database.  It  is 
incumbent  on  the  user  to  properly  catalog  and  maintain  these  files.  This  is 
usually  accomplished  in  the  execution  runstream;  the  runstream  as  well  as 
the  data  description  and  formats  are  discussed  in  Volume  III,  Chapter  2  of 
this  documentation  set  and  are  not  repeated  herein.  The  following  is  a 
summary  of  the  output  data  files. 

o  AMMOUT  -  The  **AMMOUT  output  data  file  is  a  cataloged  program 
(print)  file  assigned  in  the  "start"  file  element  and  is  assigned  to 
logical  unit  9  via  the  (3USE  command  in  the  runstream,  and  is  also 
expected  by  the  program.  An  example  of  this  output  file  is  presented 
in  Figure  III. 2.6.  The  output  is  without  printed  labels;  there  are  38 
records  of  data  for  each  day  of  the  modeled  period  of  war.  A  180  - 
day  campaign  or  war  would  produce  6840  records  of  data.  The  file  is 
assigned  default  space  of  128  tracks  on  a  fixed  mass  storage  device. 
Note  that  a  detailed  description  of  AMMOUT  is  given  in  comment  lines 
13  to  39  of  the  report  generator  code  Figure  III.3.1 1. 

o  APPPRINT  -  The  **APPPRINT  program  file  is  depicted  in  Figure 
III .2.7.  It  is  not  normally  printed  out  in  its  entirety  due  to  its  size,  but 
is  checked  for  program  completion,  then  retained  on  a  system  mass 
storage  device  for  reference  as  required.  The  file  sequentially  tracks 
the  progress  of  program  execution  through  print,  write  or  list 
statements  within  the  program. 

2.I.2.C  DATA  ELEMENT  DfCTIONAR  V:  The  following  variables  are  declared 
in  the  program  PREAMBLE  which  provides  the  data  definitions  and 
background. 

o  Global  variables  -  The  following  variables  are  defined  for  use 
throughout  the  program. 

Descriptor  Word  Mode  Value  Definition 

AVA  Integer  0-40  An  armor  versus  armor 

variable  applied  in  logic 
tests  to  determine  if  the 
ESD  is  an  armor  on 
armor  value. 

COMB. SAMPLE  Real  0-1  An  input  data  array  set 

to  a  coefficient  for 
combining  combat 

samples;  2  dimensional 
ar  'ay,  4  by  N.Snmple 

N.BLUE.'  'N  Integer  0-N  The  quantity  of  blue 

weapon  systems  modeled 
in  the  high  resolution 
model. 
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N.B.CEM.WPN  Integer 

N.ESD  Integer 

N.CEM.SAMPLE  Integer 

N. SAMPLE  Integer 

N.RED.WPN  Integer 

N.R.CEM.WPN  Integer 


0-N  The  quantity  of  blue 

weapon  systems  modeled 
in  the  theater  (CEM) 
model. 

0-N  The  quantity  of 

equivalent  stylized  days 
modeled,  normally  40. 

0-N  The  quantity  of  theater 

samples  modeled, 

normally  S. 

0-N  The  quantity  of  high 

resolution  combat 

samples  modeled, 

normally  4. 

0-N  The  quantity  of  red 

weapon  systems  modeled 
in  the  high  resolution 
combat  model. 

6  The  quantity  of  red 

weapon  systems  modeled 
in  the  theater  model;  set 
to  6. 


o  Data  variables  -  The  relationships  of  the  following  variables  may  be 
established  by  reviewing  the  data  structure  in  Figures  III. 2.8  and 


III.2.9. 

Name 

Mode 

Definition 

ARM.INDIC 

Attribute-Integer 

A  binary  flag  to  indicate 
that  a  blue  weapon  is 
armor  type  (1)  or  is  not 
(0). 

BLUE.WPN 

Permanent  Entity-integer 

The  index  value  of  a 
modeled  Blue  force 

weapon  system,  value 
from  l  to  N.BLUE.WPN. 

BLUE.WPN.PTR 

Attribute-Integer 

A  pointer  to  the  blue 
weapon  associated  with  a 
given  ESD,  Value  is  0  ot 
N.BLUE.WPN. 

BLUE.ID 

Attribute  -  integer 

The  CEM  weapon  number 
associated  with  a 

BLUE.WPN,  value  as 
input. 
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B. ARMOR. ACT 

B.  ARMOR. STY 

BFRST 

B.QTY.ON.HAND 

B. RATIO 

B. RATIO. INDEX 

B.STYLIZED.OTY 

B.CEM.WPN 

CEM.SA  .  PLE 


Attribute  -  real 

Attribute  -  real 

Attribute  -  real 

Attribute  -  real 

of  a  compound  entity 

Attribute  -  real 
of  a  compound  entity 

Attribute-Integer 

Attribute  -  real 

of  a  compound  entity 

Permanent  entity-integer 

Permanent  entity-integer 


The  total  quantity  of 
blue  armored  equipments 
modeled  on 

simulated/on-line  or 
actual  in  a  sample. 

The  total  quantity  of 
blue  armored  equipments 
modeled  on  the  stylized 
force  array  for  a 
COSAGE  sample. 

The  ratio  of  the  quantity 
of  actual  or  on-line  blue 
armored  equipments  to 
the  quantity  of  stylized 
armored  equipments  in  a 
combat  sample. 

The  quantity  of  a  blue 
weapon  by  type  in  a 
sample  that  is  engaged. 

The  ratio  of  actual  or 
engaged  weapons  by  type 
to  stylized  weapons  by 
type  in  a  sample. 

A  binary  flag  to  indicate 
that  a  given  ESD 
computation  will  be  by 
the  normal  (0)  method  or 
employ  the  B.  RATIO 
value  (1)  in  the 
computations,  value  0  or 
1. 

The  quantity  of  blue 
weapons  in  the  stylized 
force  by  sample. 

The  index  value  of  a 
modeled  bl"e  CEM 
weapon,  value  from  1  to 
N. B.CEM.WPN. 

The  index  value  of  a 
modeled  CEM  sample, 
value  from  1  to 
N. CEM. SAMPLE. 
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DEPLOYMENT 

Attribute  -  real 

The  quantity  of  a  type  of 
blue  weapons  deployed  to 
the  theater  of  operations 
in  a  day.  (daily). 

EQ 

Attribute  -  real 

The  computed  scalor 
quantity  of  a  value  per 
ESD  and  per  sample. 

ESD 

Permanent  entity-integer 

The  index  value  of  a 
modeled  equivalent 

stylized  day,  value  of  1 
to  40. 

K.KILL 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
weapon  system  account¬ 
ed  as  k-kills  for  a 
sample,  for  the  day. 

M.KILL 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
weapon  system  account¬ 
ed  as  M-kills  for  a 
sample  for  the  day. 

PERC.K 

Attribute  -  real 
of  a  compound  entity 

The  quantity  of  blue  kills 
of  red  systems  by  type. 

POS.LOS.PART 

Attribute  -  real 
of  a  compound  entity 

The  quantity  of  read 
weapons  of  a  type  lost  to 
(killed  by)  a  blue  weapon 
by  type  in  a  sample. 

POS.TOT.LOS 

Attribute  -  real 

of  a  compound  entity 

The  total  quantity 
(possible  loss)  of  a  red 
weapon  system  type,  to 
blue  systems  in  a  sample. 

RED.ID 

Attribute  -  Integer 

The  CEM  weapon  number 
of  a  red  weapon  system. 

RED.STYLIZED. 

LOS 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  red 
weapon  system  lost  to  a 
blue  weapon  system  in  a 
sample. 

RED.WPN 

Permanent  entity-integer 

The  index  value  of  a 
modeled  red  force 

weapon  system,  value  0 
to  N. RED.WPN. 
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RED.WPN.PTR  Attribute-Integer 


A  pointer  to  the  red 
weapon  associated  with  a 
given  ESD,  value  0  to 
N.RE.WPN. 


RD.WPN.NO 

Attribute  -  real 

The  CEM  weapon  number 
used  for  mapping  CEM  to 
APP  numbers. 

REPLACEMENT 

Attribute  -  real 

The  quantity  of  a  blue 
weapon  system  replaced 
to  the  theater  stocks  in  a 
given  day. 

RETURNED.TO. 

DUTY 

Attribute  -  real 

The  quantity  of  a  blue 
weapon  system  repaired 
or  returned  to  duty  in  a 
given  day. 

REPP. POOL 

Attribute  -  real 

The  quantity  of  a  blue 
weapon  system  issued 
from  the  theater  pool  in 
a  given  day. 

RETURN. POOL 

Attribute  -  real 

The  quantity  of  a  blue 
weapon  system  repaired 
at  GS  maintenance  level 
and  returned  to  the 
theater  stock  pool  in  a 
given  day. 

R.CEM.WPN 

Permanent  entity-integer 

The  index  value  of  a 
modeled  red  weapon 
associated  with  its  CEM 
weapon  identification 

number.  Value  from  0  to 
NR.CEM.WPN  which  is 
set  to  6. 

R.QTY.  INDEX 

Attribute-real 

A  value  of  the  Red 
weapon  associated  with 
an  ESD  used  to  identify 
and  array  location,  value 
from  0  to  N.PED.WPN. 

R.QTY.I  ;> 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  red 
weapon  system  lost  in  a 
sample  for  a  given  day. 

R.STYLIZED.QTY  Attribute  -  real  The  quanity  of  a  red 

of  a  compound  entity  weapon  system  in  the 

stylized  array  sample. 

The  ratio  of  the  actual 
quantity  of  red  system  to 
the  stylized  quantity  of  a 
red  system  in  a  given 
day. 

SAMPLE  Permanent  entity-integer  The  index  value  of  a 

stylized  sample  resulsts 
modeled,  associated  with 
the  COSAGE  number  of 
samples.  Value  from  0 
to  N. SAMPLE,  normally 

SURV.ASSET  Attribute  -  real  The  quantity  of  a  blue 

weapon  system  surviving 
in  a  given  day. 

TDEPLOYMENT  Attribute  -  real  The  quantity  of  a  blue 

weapon  system  deployed 
to  the  theater  in  a  given 
day. 

TREPLACEMENT  Attribute  -  real  The  quantity  of  a  blue 

weapon  system  replaced 
in  theater  stocks  in  a 
given  day. 

The  quantity  of  a  blue 
weapon  system  returned 
to  units  from  DS 
maintenance  in  a  given 
day. 

TREPP.POOL  Attribute  -  real  The  quantity  of  a  blue 

weapon  system  issued 
from  the  theater 
replacement  pool  in  a 
given  day. 

TRETURN.POOL  Attribute  -  real  The  quantity  of  a  blue 

weapon  system  repaired 
and  returned  to  the 
theater  replacement  pool 
in  a  given  day. 


TRETURN.TO.  Attribute  -  real 
DUTY 


R. RATIO  Attribute  -  real 

of  a  compound  entity 
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TRB.QTY.ON. 

HAND 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
(CEM)  weapon  in  the 
sample  on  a  given  day; 
for  mapping  CEM  to  APF 
quantities. 

TB.QTY.ON. 

HAND 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
(CEM)  weapon  in  a  CEM 
sample  on  a  given  day. 

TK.KILL 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
(CEM)  weapon  lost  as  a 
K-kill  in  a  CEM  sample 
on  a  given  day. 

TM.KILL 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
CEM  weapon  lost  as  an 
M-kill  in  a  CEM  sample 
in  a  given  day. 

TR.QTY.LOSS 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  red 

CEM  weapon  lost  to  K- 
kill  and  M-kill  in  a  CEM 
sample  on  a  given  day. 

TRK.KILL 

Attribute  -  real 
of  a  compound  entity 

The  quantity  of  a  blue 
CEM  weapon  lost  as  a  K- 
kill  in  a  combat  sample 
on  a  given  day. 

TRM.KILL 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  blue 
CEM  weapon  lost  as  an 
M-kill  in  a  combat 
sample  in  a  given  day. 

TRR.QTY.LOSS 

Attribute  -  real 

of  a  compound  entity 

The  quantity  of  a  red 

CEM  weapon  lost  as  K- 
kills  and  M-kills  in  a 
CEM  sample  on  a  given 
day;  used  to  map  CEM  to 
APP  data. 

TSURV. ASSET 

Attribute-Real 

The  input  quantity  of  a 
blue  weapon  system 
(from  CEM)  that  has 
survived  the  day's 

engagements. 

1.3  PROGRAM  PROCESSING:  The  MAIN2  routine  is  the  program  driver 
and  calls  ESD.MAP,  and  then  RESET.TOTAL1,  DAILY.INPUT3, 
RATIO.COMP  and  ESD.COMP1  in  order  for  each  day  of  theater  combat 
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modeled.  Typically,  180  days  of  a  campaign  long  war  are  modeled;  thus  180 
calls  to  each  routine  would  be  made.  The  Preamble  declares  the  global  data 
structure  including  arrays  which  are  known  as  compound  entities  in  the 
SIMSCRIPT  11.5  programming  language.  The  only  argument  passed  between 
MAIN  and  the  subroutines  is  the  value  of  the  day  modeled.  The  high  level 
program  features  are  depicted  in  Figure  III.2.10. 

3.A  PROGRAM  RUN  DESCRIPTION:  The  procedure  or  "START"  file  to 
execute  the  ESD  program  is  depicted  and  discussed  in  Volume  III,  Chapter  2 
of  this  documentation  set.  The  object  program  and  source  code  resides  in 
permanently  cataloged  program  file  elements  under  the  current  APP 
user/analyst's  computer  user  identification  number.  The  execution 
runstream  is  designed  to  be  submitted  as  a  batch  run  to  the  system.  The 
submission  is  normally  made  in  the  demand  mode  from  a  computer  terminal, 
though  a  punched  card  deck  could  be  submitted  to  the  computer  operations 
dispatcher.  During  the  program  execution,  selected  input  data  and 
computations  are  written  out  to  either  the  execution  runstream 
**APPPRINT  file  (Unit  6)  or  the  output  file,  **AMMOUT  (Unit  9).  The 
maintenance  programmer  or  analyst  can  trace  the  flow  of  execution  through 
this  medium. 

3.B  PROGRAM  LOGIC:  The  program  is  flow  charted  in  Figure  III.2.11 
(MAIN2),  Figure  III.2.12  (ESD. MAP)  III.2.13  (RESET.TOTAL1),  III.2.14 
(DAILY.INPUT3),  III.2.15  (RATIO.COMP),  and  III.2.16  (ESD.COMP1).  The 
source  code  listings  are  depicted  in  Figures  III.2.17  (PREAMBLE)  through 
III.2.23. 

3.C  PROCESSING  FEATURES;  The  ESD  program  performs  the  following 
functions. 

MAIN  2 

oo  Reads  Input  data,  writes  selected  data. 

oo  Equivalences/maps  CEM  weapon  data  to  combat  sample  (COSAGE) 
data. 

oo  Read  in  stylized  quantities. 

oo  Computes  stylized  quantities  for  red  weapons  5  and  6. 
oo  Calls  ESD. MAP  to  read  and  write  mapping  data, 
oo  For  each  combat  day: 

ooo  Calls  Reset.Total  -  performs  no  function, 
ooo  Calls  Daily .Input3,  given  the  day. 

oooo  Reads  deployment,  replacement  data. 


oooo  Performs  mapping  adjustments: 

Blue  weapon  3  quantity  divided  by  4. 

Blue  weapon  4  quantity  divided  by  1.33. 

oooo  Writes  out  data 

oooo  Maps  the  8  CEM  sample  data  to  4  combat  samples. 

oooo  Performs  correctional  computations  for  mapping: 

Blue  weapon  3  on  hand  x  .25 
Blue  weapon  4  on  hand  x  .75 
Blue  weapon  10  on  hand  x  .50 
Blue  weapon  14  on  hand  x  .50 

ooo  Calls  Ratio.Comp  given  the  day. 

oooo  For  every  blue  weapon  system,  for  every  sample,  computes 
the  ratio  of  on-hand  to  stylized  quantities. 

oooo  For  blue  weapons  2  thru  14  (armor)  computes  the  total 
armor  system  quantity. 

oooo  Computes  the  ratio  of  actual  armor  to  stylized  armor, 
ooo  Calls  ESD.COMP1  given  the  day. 

oooo  Computes  the  total  possible  loss  of  each  red-weapon 
against  each  blue  weapon  in  each  sample  as  the  ratio  times 
the  stylized  loss. 

oooo  For  each  sample,  for  equivalent  stylized  days  1  through  40 
computes  the  ESD  value  as  the  ratio  times  the  quantity  lost 
divided  by  the  possible  total  loss. 

oo  Returns  to  MAIN  to  index  to  the  next  combat  day. 

2.2  OPERATING  ENVIRONMENT:  The  ESD  program  is  implemented  on  the 
USACAA  UNIVAC  1100/82  computer.  The  program  is  submitted  in  the 
demand  mode  and  is  processed  in  a  batch  environment  for  efficient  use  of 
resources.  The  program  requires  approximately  3  minutes  of  CPU  time  for 
execution.  The  program  is  developed  under  the  UNIVAC  architecture, 
requiring  20'  words  (36-bit)  of  main  core  memory  for  execution. 

2.2.1  HARDWARE:  The  UNIVAC  1100/82  mainframe  and  perphiral  devices 
supports  the  program  maintenance  and  execution.  The  execution  runstream 
fixed  or  removable  disk  (on-line)  storage  requirements  are  as  follows: 


UNIT  6 
UNIT  9 


1600  (breakpoint  file)  tracks 
default,  128  tracks 
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UNIT  16 
UNIT  17 
UNIT  40 


default,  128  tracks 
default,  128  tracks 
default,  128  tracks 


Tape  processing  is  not  a  part  of  the  program  execution.  A  (user)  computer 
terminal  to  the  system  is  required.  A  printer  is  employed  for  a  hard  copy  of 
the  output.  Normally  the  operating  system  executive  directs  the  assignment 
of  the  mass  storage  (disk)  devices. 

The  hardware  requirements  for  recopilation  are  within  the  capability  of  the 
USACAA  computer.  Refer  to  item  U,  Appendix  A,  for  device  requirements. 

2.2.2  SUPPORT  SOFTWARE:  The  program  compilation  and  execution 

requires  the  following  system  processors: 


(3SIM25 

@MAP 

@ED 

SODL 


The  SIMSCRIPT  II.5  language  processor. 

The  MAP  processor  or  collector  to  form  the  executable 
program  from  the  relocatable  object  code. 

The  system  editor  processor. 

The  program  may  be  processed  through  the  Software 
Design  and  Documentation  Language  (SDDL)  processor. 


2.2.2. A  OPERATING  SYSTEM:  The  program  was  developed  and  implemented 

on  the  UNIVAC  1100/82  operating  system.  The  features  of  the  EXECUTIVE- 
8  control  language  and  the  standard  system  library  (SYS$LIB$  and 
SYS$RLIB$)  provide  the  essential  support. 

2.2.2. B  COMPILER:  The  operating  system  library  contains  the  SIMSCRIPT 

II.5  compiler  and  is  accessed  by  the  EXECUTIVE-8  command  @SIM25.  Refer 
to  reference  item  U,  Appendix  A  for  recompilation  (full  and  partial) 
procedures,  sample  runstream  and  compiler  diagnostics.  The  program  was 
developed  under  the  release  6.3  compiler.  Release  7.0  was  installed  in  July 
1981  and  this  program  is  compatable  without  alteration;  i.e.,  there  are  no 
compiler  enhancements  that  are  in  conflict  with  the  program. 

2.2.3  DATA  BASE:  The  data  base  and  files  necessary  for  program 

execution  were  discussed  in  paragraph  2. 1.2. A.  These  files  are  all 

FIELDDATA  and  in  System  Data  Format  (SDF).  These  files  exist  as 
user/analyst  cataloged  files  and  file  elements  and  are  not  part  of  a  formal 
data  base  structure. 

2.3  MAINTENANCE  PROCEDURES:  The  relative  size  of  the  program 
minimizes  the  maintenance.  The  maintenance  extends  to  insuring  that  a 
copy  of  the  symbolic  (source)  code  is  preserved  (on  tape  or  cards),  that  page 
by  page  changes  are  made  to  this  documentaion  as  changes/maintenance  is 
performed,  and  that  the  source  code  file  be  annotated  with  comments  to 
insure  that  future  programmers  can  track  the  changes.  The  following 
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information  is  pertinent  to  the  program  maintenance  (space  provided  for 
notes): 


Source  (Symbolic)  code  Filename.Elementname: 

Absolute  (object)  code  Filename.Elementname: 

Space  Required,  source  code: 

Space  Required,  absolute  code: 

Archived  tape  label,  location: 

Read/write  keys;  established  by  current  custodian;  names: 

PROGRAMMING  CONVENTIONS:  The  maintenance  programmer 
should  review  Appendix  A  items  S,  T  and  U  for  the  SIMSCRIPT  II.5  syntax. 
This  program  applies  the  SIMSCRIPT  II.5  programming  language  features 
such  as  the  IF-ELSE-ALWAYS  structured  programming  capabilities  and  has 
no  "GO-TO  'LABEL'"  commands  in  the  program.  The  following  features  high 
light  the  programming  conventions: 

o  The  background  mode  for  all  variables  declared  as  follows: 

PREAMBLE  -  REAL 

MAIN2  -  INTEGER 

ESDMAP  -  INTEGER 

DAILY. INPUT  -  REAL 

ESD.COMP1  -  REAL 

RATIO.COMP  -  REAL 

RESET.TOTAL1  -  INTEGER 

Unless  specifically  declared  otherwise  in  the  program,  the  variables 
used  are  set  to,  and  computed  as,  the  background  mode.  SIMSCRIPT 
II. 5  provides  for  mixed-mode  expressions  and  computations. 

o  The  prog  .  n  structure  is  highlighted  with  5-column  indentations  of  the 
code  r  _  :k  cting  the  logic  and  level  of  activity. 

o  Programming  syntactical  substitutions  are  made  or  declared  in  the 
pre  a. able  on  lines  (records)  84  through  102,  via  "Define  to  mean" 
statements. 

These  substitutions  are  employed  in  the  program  for  clarity  and 
understanding  and  any  programming  changes  made  must  follow  the 


2.3.2 


2.3.3 


declared  substitutions.  These  substitutions  enable  a  programmer  to 
process  the  source  code  through  the  Software  Design  and 
Documentation  Language  (SDDL)  as  well,  using  the  substitutions  as 
keywords  in  the  SDDL  processor. 

o  Comments  are  preceeded  by  the  '  '  (double  apostrophe)  characters  and 
any  characters  following  this  notation  in  a  record  are  ignored  by  the 
compiler. 

o  Because  the  UNIVAC  ASCII  printer  does  not  print  the  quote  symbol  ("), 
quotes  used  to  denote  alpha  literals  may  not  show  up  on  computer 
print-outs. 

o  GO-TO  statements  are  not  employed  in  the  program. 

o  Programmer  developed  and  formatted  PRINT  statements  are  used 
liberally  in  the  program  to  verify  input  data  and  computations. 

o  The  define-to-mean  LOOP  and  ENDLOOP  syntax  are  used  to  highlight 
do-loops. 

VERIFICATION  PROCEDURES:  Program  verification  is  accomplished 
by  performing  test  execution  runs  of  the  program  with  sample  data  followed 
by  a  review  of  the  run  output  files.  This  is  followed  by  hand  calculations 
with  the  same  data  using  the  coded  mathematical  expressions  and  a 
comparison  of  the  results. 

ERROR  CORRECTION  PROCEDURES:  The  errors  that  may  be 
associated  with  the  program  are:  l)  Input  data  errors,  either  in  content  or 
format;  2)  Program  errors  or  bugs  and  3)  operating  system  errors. 
Debugging  and  error  correction  is  accomplished  by  an  examination  of  the 
output.  The  program  does  not  employ  any  programmed  debugging  aids  or 
calls  to  an  "error-found"  subroutine. 

o  Data  (input)  errors  —  data  piesented  in  a  mode  (integer,  real, 
alphanumeric)  other  than  expected  by  the  program  may  cause  an  error 
which  will  be  noted  in  the  TRACE. 

Data  presented  in  excess  of  reserved  arrays  (declared  entities)  will 
induce  an  error;  the  error  may  manifest  itself  at  the  point  of  error  or 
later  in  a  program  read.  Debugging  of  data  must  be  accomplished  by  a 
visual  examination  of  the  data  files  (print  copy  or  at  the  terminal),  or 
tracing  the  input  progress  via  the  output  files. 

o  Program  errors  -  The  SIMSCRIPT  II.5  programming  language  can  be 
employed  to  use  the  following  capabilities: 

oo  Debug  statements:  Source  code  level  debugging  is  best 

accomplished  through  the  use  of  coded  debug  statements,  which 
are  accessed  through  coded  logic  tests,  at  the  approximate  point 
of  a  suspected  error. 
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oo  TRACE  -  The  SIMSCRIPT  II. 5  library  contains  a  tracing  routine 
that  traces  back  all  subroutine  calls  from  the  error  location,  and 
prints  a  dump,  in  octal,  of  the  recursive  storage  for  each 
subroutine.  A  verification  of  variable  values  can  quickly  be 
accomplished  using  the  trace  information  along  with  the 
compiler  listing. 

oo  SNAP.R  -  The  SIMSCRIPT  II. 5  library  contains  a  snapshot 
routine.  The  programmer  may  develop  a  substitute  routine,  by 
the  same  name  of  his/her  own  design. 

Upon  error,  the  routine  provides  lists  of  all  the  Preamble 
declared  entities,  events,  processes,  etc.  An  examination  of 
these  variable  values  aid  in  the  verification  of  the  program  and 
possible  sources  of  error. 

Program  errors  are  resolved  by  checking  the  compilation  listing,  the 
relocatable  element  file  listing  after  program  collection  (@MAP)  to 
insure  that  all  references  and  call  addresses  are  resolved.  A  post 
mortum  dump  may  be  produced  by  using  the  @PMD  Executive-8 
command  in  the  execution  runstream,  and  then  examining  the  contents 
of  the  instruction  (I-BANK)  bank  and  data  bank  (D-BANK). 

o  System  error  -  the  run  output  file  (TPF$)  will  list  the  system  diagnosed 
errors  for  subsequent  tracing  and  correction.  These  errors  often  occur 
as  a  result  of  an  error  in  the  runstream. 

.4  SPECIAL  MAINTENANCE  PROCEDURES:  No  special  maintenance 
procedures  are  developed  or  required  for  this  program. 
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••INTEGER-BLUE  WPN  IN  THE  ESD 

73 

A 

p.oiy.inoex. 

• • INTEGER 

74 

A 

B.  RATIO. INDEX 

••INTER  10,11  WHERE  0  =  NORMAL  COMPUTATION 

75 

76 

77 

EVERY 

ESD.SAMPLE  HAS 

’•  I  =  B. RATIO  FOR  ESD  VALUE 

70 

A 

to 

••REAL  EOUIV.  STY.  DAY 

79 

70  TEMPORARY  ENTITIES 
El 
F  2 

f 3  OEFINE  ASSESS  AS  A  REAL  FUNCTION  KITH  3  ARGUMENTS 
AN 


is  OEFINE  ••INTEGER  VARIABLES 
Pfc  BLUE. ID, 

er  REO.IO, 

P  8  PEO.WPN.PTR, 

P  9  PLUE.WPN.PTR, 

9E  AVA, 


91  P .RATIO. INDEX , 

92  ARH.INOIC 


DEFINE  COMB. SAMPLE  as  a  2-DIMENSIONAL  array 


SUB ST  I TUTIONS 
ENDPREAM8LE1  TO  MEAN  END 
ENOMAIN  TO  MEAN  ENO 
EXITMAIN  TO  MEAN  STOP 
ENOROUTINE  to  MEAN  END 
EXITROUTINE  TO  MEAN  RETURN 
ENOFUNCTION  10  MEAN  ENO 
EXIIFUNCTION  TO  MEAN  RET  URN 
EEFTROUUNE  TO  mean  LEFT  ROUTINE 
ENOLEETROUTINE  TO  MEAN  END 
EXITLEFTROuTINE  to  mean  return 
endevent  to  mean  end 
EXITEVENT  TO  mean  return 
ENOPROCESS  TO  mean  END 
EXITPROCESS  TO  MCAN  RETURN 
ELSE  IF  TO  MEAN  ELSE  IF 
E  NO  IF  TO  MEAN  ALWAYS 
ENOLOOP  TO  Mt. AN  REPEAT 
EXITLOOP  TO  MEAN  LEAVE 
LOOP  TO  MEAN  RESUME  SUBSTITUTION 


93 

AS  INTE 

9* 

95 

define 

96 

97 

• • SODL 

98 

DEFINE 

99 

OEFINE 

ICC 

OEFINE 

iri 

OEFINE 

1 C2 

OEFINE 

ICJ 

DEFINE 

11  4 

OEFINE 

ITS 

DEFINE 

If  6 

OEFINE 

in 

DEFINE 

1C6 

OEFINE 

K5 

OEFINE 

nr 

DEFINE 

in 

OEFINE 

112 

OEFINE 

113 

DEFINE 

114 

OEFINE 

ns 

DEFINE 

116 

OEFINE 

117 

ns 

ENOPPEA 

Figure  III.2.17  (Cont.) 
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LIKE  CACI  SIMSCRIPT  II. 5  1100  SERIES  RELEASE  b.3 

1  MAIN 

0  NOPHALLT  MODE  IS  INTEGER 

3  READ  N.bLUE.WPN.N. RED. WPN.N. SAMPLE, N.ESD.N.CEM. SAMPLE 

9  PRINT  1  LINE  WITH  N. BLUE. WPN,N. RED. WPN,N. SAMPLE .N.ESO.N. CEM. SAMPLE  IHUS 
*•*  BLUE  WPNS  #«*  REO  wPNS  *•  SAMPLES  ***  ESD  **  N. CEM. SAMPLE 
6  READ  PEWS, TNHS.LRMS, ATMS, HELS, ARTS 


7 

PRINT  1 

LINE 

WITH  peps,tnks,lrms,atms,hels,aris 

THUS 

•  •• 

««*  «**  »*4  **»  «•* 

9 

LET  N.B 

•  C£H, 

WPNRP£PS«TNKS*LRMS«ATMS«H£LS«ARTS 

10 

READ  PERS.TNKS.LPMS.AIMS .HELS, ARTS 

. 

1  1 

PRINT  1 

LINE 

WITH  PL PS, TNKS.LRMS, ATMS, HELS, ARTS 

THUS 

•  ** 

***  000  000  000 

13 

LET  N .R 

•  CEM. 

WPN  -6 

i 

19 

CREATE 

EVERT 

B.CEM.wPN 

i 

IS 

CREATE 

EVERT 

R.CEM.wPN 

\ 

16 

CREATE 

EVERT 

SAHPLE 

i 

17 

CREATE 

EVERT 

CEM. SAMPLE 

18 

CREATE 

EVERT 

BLUE. WPN 

* 

l 

19 

CREATE 

EVERT 

PEO .WPN 

j 

20 

CREATE 

EVERT 

ESO 

i 

i 

2  1 

SKIP  1 

LINE 

i 

22 

USE  9  3 

FOR  INPUT 

23 

CALL  ESCiMAP 

29 

USE  S  FOP  INPUT 

j 

25 

SKIP  1 

LINE 

2b 

PRINT  1 

LINC 

THUS 

/READING  MAPPING  OF  SELECIEO  BLCMAM  WEAPONS/ 
26  LOOP  FOR  EACH  PLUE.hPN  00 

29  READ  BLUE.IOEBLgE.WPNI 

30  ENOLOOP 

31  PRINT  1  LINC  WITH  Blue .I0E30TTHUS 
LAST  VALUE  READ  BLUE . 10 ( BLUE .WPN T  WAS  **•*.* 

33  SKIP  l  LINE 

3>*  PRINT  1  LINE  THUS 

/REAOING  MAPPING  OF  SELECTED  RDCHaN  WEAPONS/ 
3b  LOOP  FOR  EACH  RED. WPN  00 
37  READ  REDID 

36  LET  REO. IDIREO .wPN I  :  REDID 

39  ENOLOOP 

90  PRINT  1  LINE  WITH  RED . 1 0  1 1 > THUS 
LAST  VALUE  READ  RED . 1 0 » RED . WPN 1  WAS  ••••.» 

92  SKIP  1  LINE 
9  3  PRINT  1  LINE  THUS 
/RfAOING  MAPPING  OF  RDAHCH  WPNS/ 

95  LOOP  FOR  EVERT  R.CFM.wPN  00 

96  READ  RO.WPN.NOTrt.CEM.WPNl 
9  7  ENOLOOP 

98  PRINT  I  LINE  WITH  PU.WPN.NOIbl  THUS 
LAST  VAIUF  RFAD  RO.WPN.NOIbl  WAS  ••••.* 

'0  LOOP  TOR  EACH  3LUE..PN  00 
SI  IF  BL !"  .I  MBLUF.WPN)  :  99 

S  2  CYCLE 


Figure  III.2.18 
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S3  FnDIF 

99  LOOP  FOR  EACH  SAMPLE  DO 

55  RE  AO  B .STYLIZED. QTY 1BLUE .WPN, SAMPLE  I 

56  ENDLOOP 

57  ENPLOOP 

58  SKIP  1  LINE 

59  PRINT  1  LINE  THUS 

/STYLIZED  QUANTITIES  READ  FOR  BLUE  WEAPONS  AND  SAMPLES/ 

61  PRTNT  1  LINE  WITH  B. STYLIZED. WTyI30, 9)  THUS 
LAST  VALUE  READ  8. STYLIZED  . OT Y I  BLUE . WPN , SAMPLE >  WAS  *•**.* 

63  R£AO  NO. DAYS 

69  PRINT  1  LINE  WITH  NO. DAYS  THUS 
/NUMBER  OF  DAYS  ARE  •*** 

66  USE  16  FOR  INPUT 

67  LOOP  FOR  RED. WPN  -  i  TO  9  DO 

68  LOOP  FOR  EACH  BLUt.UPN  DO 

69  READ  BLUE  .WPN  .PtRC.K ( RED .WPN  .BLUE. WPN ) 

70  ENPLOOP 

71  ENDLOOP 

72  PRINT  1  LINE  WITH  PEPC.K  19, 3G1  THUS 

/PERCENT  K-KILL  FOR  RED. WPN  1  TO  9  L  BLUE  KILLERS  READ.LAST  WAS***.* 
79  USE  17  FOR  INPUT 

75  LOOP  FOR  RED. WPN  -  1  TO  9  DO 

76  LOOP  FOR  EACH  BLUE. WPN  DO 

77  IF  PERC.KIRED. WPN, BLUE. WPN1  :  99.9 

76  CYCLE 

79  end  if 

ec  LOOP  FOR  EACH  SAMPLE  00 

81  RE  AO  RED. STYLIZED. L0S1RED. WPN, BLUE. WPN, SAMPLE! 

82  PRINT  1  LINE  WITH  RE 0 . WPN , SA MPLE .BLUE . WPN 

83  ,RFO. STYLIZED. L0S1RED. WPN, BLUE. WPN, SAMPLE!  THUS 

••*,*  *•*.*  •**.*  »•*.* 

85  LET  REO. STYLIZED. L0S1RED. WPN, BLUE. WPN, SAMPLE! 

86  =  REO. STYLIZED. LOSIRED. WPN, BLUE. WPN, SAMPLE  I 

67  PRINT  1  LINE  WITH  RED .WPN , SA MPLE .BLUE . WPN 

88  , FED. STYLIZEO.LOSIREO. WPN, BLUE. WPN, SAMPLE!  THUS 

•••.*  *•*.»  ••*.*  »**.* 


9L  FNOLOOP 

91  ENDLOOP 

92  ENPLOOP 

93  LOOP  FOR  EACH  BLUE ..PN  DO 

99  LOOP  FOR  EACH  SAMPLE  DO 

95  LET  RED. STYLIZED. L0S15, BLUE. WPN, SAMPLE  I 

96  r  REO. STYLIZED. L0S13, BLUE. WPN, SAMPLE! 

97  «RED.STYLIZlD.L0S19, BLUE. WPN,  SAMPLE! 

98  PRINT  1  LINE  WITH  BLUE .WPN, SAMPLE 

99  , REO. STYLIZED. L0S15, BLUE. WPN, SAMPLE!  THUS 


101 

ICZ 

1C3 

109 


*•*.*  **«.*  ••*,* 

LET  RED. ST YLIZEP.L0SI6, BLUE. WPN, SAMPLE  I 
r  REO.STYLIZEO.LOSIZ.BLUE.WPN.SAMPLE! 

♦RED. $TVLI7iO.LOS!5, BLUE .WPN, SAMPLE! 

print  i  line  with  blue. wpn, sample 


Figure  III.2.18  (Cont.) 
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ICS  ,R[0. STYLIZED. LCi<6,BLUE.WPN, SAMPLE!  THUS 

**•.*  •  »».»  »•*,* 

If?  ENDLOOP 

ira  e  noloop 
1T9  print  1  LINE  THUS 
/LAST  NALUE  RtC.STTLIZEO.LOS  COMPUTED 

111  usr  f  FOP  INPUT 

112  loop  for  dat=i  TO  No. OATS  00 

113  CALL  RESET. TOTALl 

II**  CALL  DAILY. INPUT310ATI 

115  CALL  RATIO. COMP10AYJ 

116  CALL  cso.compi  idayi 

11?  SKIP  2  LINES 

116  PRINT  1  LINE  WITH  DAY  THUS 

INPUT  »FAO  AND  OROEREO,  RATIOS  AND  ESOS  CALC.  FOR  DAY  •** 
12C  ENDLOOP 
121  ENOHAIN 


Figure  111.2. 1 S  (Cont.) 
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1 

2 

ROUTINE  ESDMAP 

.  . 

3 

4 

.  • 

••THIS  ROUTINE  RE  ADS  A  OATA  FILE  THAT  DEFINES  THE  WPN 

EQUIPMENT 

5 

6 

••COMBINATIONS  THAT  DEFINE  THE  E SD * S 

.  . 

7 

e 

.  . 

NORMALLY  MODE  IS  INTEGER 

4 

PRINT  1  LINE  THUS 

/READ 

IN  THr  E  SD  MAP  DATA/ 

11 

read  ava 

12 

FOR  EACH  ESO.  DO 

13 

RFAO  ESD.SEC.NO,  BLUE.wPN.PTRIESDI,  RED.WPN.PTRIESDI,  R .01 Y .INDEX « E SD 1 . 

14 

B. RATIO. INDEXIESOI 

15 

PPINT  1  LINE  WITH  ESD,  ESD.SEC.NO,  RED . UPN .P TB 1ESD 

16 

BLUE.WPN.PTRIESDI,  B. RATIO. INDEXIESOI  THUS 

ESO  = 

ESD.SEO.NC  =  •**  RED.WPN  =  **♦  BLUE.WPN  r  •••  B 

.RATIO. INDEX  =  * 

16 

IF  ESO  NE  ESD.SEC.NO 

19 

TRACE 

2C 

S10P 

21 

OTHERWISE 

22 

ENOLOOP 

23 

PRINT  1  LINE  THUS 

/ESO  NAP  DATA  READ  IN/ 

25 

PRINT  1  LINE  THUS 

/READ 

IN  ARMOR  INDICATORS/ 

27 

FOR  FACH  BLUE.WPN 

28 

RF  AO  ARM.INDICIBLUE.WPNI 

29 

PRINT  1  LINE  THUS 

/ABHOR  INDICATORS  READ  IN/ 

31 

PRINT  1  LINE  THUS 

/READ 

IN  COEFFICIENTS  FOR  COMBINING  SAMPLES/ 

33 

FOR  I  r  1  TO  4,  FOR  J  =  l  TO  N. SAMPLE 

34 

RFAO  COMB.SAMPLElI.JI 

35 

PRINT  1  LINE  THUS 

/COEFFICIENTS  FOR  COHBINlNli  SAMPLES  READ  IN/ 

37 

ENOROUTINE 

Figure  III. 2. 19 
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LINE 
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1100  SERIES 


1  ROUTINE  RESET. TOTALS 

2  NORMALLY  MOOE  IS  INTEGER 

3  SKIP  1  LINE 

“  PRINT  1  LINE  THUS 
////Entering  RESET. TOTALI//// 

6  LOOP  EOR  EVERY  blue.wpn  do 

7  LOOP  FOR  EVERY  sample  DO 
e  enoloop 

v  enoloop 

10  RETURN 

11  ENOROUTINE 


Figure  III.2.20 
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J  POUTINE  DAILY. INPUTIOAYI 

2  NORMALLY  mode  IS  real 

3  oefine  i  and  j  as  integer  variables 

4  OEFINE  DAY  AS  INTEGER  VARIABLE 

5  SKIP  1  LINE 

6  PRINT  1  LINE  THUS 
////ENTERING  0 AI LY *  I NPUT 3/ /// 

8  SKIP  1  LINE 

9  LOOP  FOR  EVERY  B.CEM.WPN  DO 

10  P£ A 0  DEPLOY, 

11  THNEPL, 

12  RTO, 

13  REPLFP, 

14  REPLTP, 

15  SURVAS 

16  LET  TOEPLOYMENTlB.CfM.NPNl  :  DEPLOY 

17  LET  TREPLACEMCN1 IB. COM. WPNI  =  THREPL 

18  LET  TRETURN.T0.DUTY1B.CEM.WPN)  :  R TD 

19  LET  TREPP.POOLIB.CEM.WPNI  :  REPLFP 

2G  LET  TRETURN.POOLI8.CEM.NPNI  :  REPLTP 

21  LET  TSURV.ASSET1B.CEM.NPN1  -  SURVAS 

22  ENOLOOP 

23  PRINT  1  LINE  WITH  SURVAS  THUS 

/CEM  nEAPON  DATA  REAO  LAST  VALUE  NAS  ******.* 

2S  LOOP  FOR  EVERY  BLUF.WPN  DO 
2t  IF  BLUE  .I01BLUE.WPN1  ;  99 
27  LFT  DEPLOYMENT IBLUE.WPNI:  0 

2e  LFT  REPLACEMENT IBLUE.WPNI:  0 

29  LFT  RETURN. TO. DUTY 1BLUE .WPN 1:  0 

30  LFT  REPP.POCLIPluE.WPNi:  0 

31  LET  RETURN. P03LI3LUE.WPN1:  0 

32  LFT  SURV.ASSET1BLUE.WPNI:  0 

33  CYCLE 

34  ENOIF 

35  LET  DEPLOYMENT 1BLUE ,WPN 1 :  TDEPLOVHENT 1  BLUE . ID  I  BLUE .WPN 1  1 

36  LET  REPLACEMENT 1PLUE .WPN |:  IRE  PL  AC EMEN T I  BLUE . I D 1  BLUE . WPN  1 1 

37  LET  RETURN. TO. DUTYlBLUE.NPNi:  TRE 7  URN . TO .DU TY 1  BLUE . I D 1  BLUE .WPN 1 1 

38  LET  REPP.POOL18LUt.WPNl:  TRE PP .POOL  1 BL UE . ID  I B L UE . WPN I  1 

39  LET  RETURN.  POOUPLUE.WPNl:  I  RE  TURN  .P  OOL  I  BLUE  .  I  0 1  BLUE  .  WPN  1 1 
•  D  LET  SURV.ASSE7IBLUE.WPNi:  T SUR V . ASSE Tl BLUE . ID  I  BLUE . WPN  1 1 

41  ENOLOOP 

42  LOOP  FOR  EVERY  Blur.WPN  DO 

43  PRINT  1  LINE  WTIH  OEPLO Y ME  NT  1 BLUF . WPN I , 

44  REPLACEMENT1BLUE.WPN1, 

45  RETURN. TO. 0UTY1BLUE.WPN1, 

46  REPP. POOL tBLUE .WPNI, 

47  RETURN. POULIBLUE. WPNI, 

48  SURV. ASSET tBLUE. WPNI 

49  THUS 


51  ENOLOOP 

52  SKIP  1  LINE 


Figure  III. 2. 2 1 
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53  PRINT  I  LINE  WITH  OAT  THUS 
/ORDERED  CEM  TO  AMMO  ZEROING  DATA  COMPLETED  FOR  DAT  *•* 

FOR  OUTPUT 

FOR  BLUE • WPN  ~ I  TO  IS,  WRITE  DEPLOYMENT (BLUE .WPN ) 

AS  0(8,11  SKIP  I  LINE 

FOR  BLUE , WPN RIF  TO  30,  WRITE  DEPLOTMENT I BLUE .WPN) 

AS  018, H  SKIP  1  LINE 

FOR  BLUE.WPN=1  TO  IS,  WRITE  REPLACEMENT (BLUE ,WPNI 
AS  D ( 8 , 1  I  SKIP  1  LINE 

FOR  BLUE  •  WPN  =  1 6  TO  30,  WRITE  REPLACEMENT (BLUE .WPN) 

AS  0(8,1)  SKIP  1  LINE 

BLUE • WPN - 1  TO  IS,  WRITE  RE  TURN . T 0 .OUT T ( BLUE .WPNI 
AS  018,11  SKIP  1  LINE 

BLUE •  WPN  =  16  TO  30,  WRITE  R E TURN . TO .DU IT ( BLUE . WPN I 
AS  0(8,1)  SKIP  1  LINE 

BLUE • WPNr 1  TO  IS,  WRITE  REPP  .POOL  I  BLUE . WPN ) 

AS  018,1)  SKIP  1  LINE 

BLUE • WPN - 16  TO  30,  WRITE  REPP. POOL (BLUE . WPN > 

AS  0(8,1)  SKIP  1  LINE 

FOR  BLUE • wPNr 1  To  IS,  WRITE  RE  TURN .POOL  I  BLUE .WPN > 

AS  0(8,1)  SKIP  1  LINE 

BLUE •  WPN  =  1 6  TO  30,  WRITE  RE T URN .POOL  I  BLUE .WPN I 
AS  0(8,1)  SKIP  1  LINE 

BLUE.wPNrl  TO  IS,  WRITE  SURV . A SSE T (BLUE . WPN ) 

AS  0(8,1)  SKIP  1  LINE 

FOR  BLUE.WPN  =  1E  TO  30,  WRITE  SURV . ASSET  1  BLUE .WPN > 

AS  0(8,1)  SKIP  1  LINE 

for  blue •  wpn - i  to  is,  write  suRv.asseT(blue.wpn) 

AS  0(8,1)  SKIP  1  LINF 

FOR  BLUE • WPN - lfc  TO  30,  WRITE  SUR V . ASSE T I  BLUE .WPN > 

AS  018,1)  SKIP  1  LINE 
FOR  OUTPUT 

FOR  EVERY  CEM. SAMPLE  00 
U  I  LINE  THUS 
/READING  BLUE  QTY .  ENGO.,  K  t  M  KILL 

88  LOOP  FOR  EVERY  B. CEM. WPN  00 

89  F£AO  ONLINE 

90  LET  TB.QTY.0N.HAN0(B.CEM.UPN,CEM.SANPLE)=0NLINE/2 

91  PE  A  0  OEAO 

92  LET  TK. KILUB. CEM. WPN, CEM. SAMPLE  )=DEAD 

93  REA  0  PTOEAD 

98  LET  TM. K1LL1B.CLM. WPN, CEM. SAMPLE )=PTOEAO 

95  ENOLOOP 

96  SKIP  1  LINE 

97  PRINT  I  LINE  WITH  PTDEAO  AND  CEM. SAMPLE  THUS 
LAST  BLUE  VALUE  READ  WAS  *••*♦*.*  FOR  NGAG  ** 

99  PRINT  I  LINE  THUS 
/READING  PEO  QTY  LOST 

lrl  LOOP  FOR  EVERT  R. CEM. WPN  00 

102  READ  OF  k  ) 

103  LET  TP.  TY. LOSSIR. CEM. WPN, CEM. SAMPLE )  =  OEAO 
1C8  ENOLouP 


ss 

USE 

9  F  0 

56 

FOR 

57 

SB 

FOR 

59 

60 

FOR 

ti 

62 

F  OR 

t  3 
68 

F  OR 

ts 

6b 

FOR 

67 

66 

FOR 

69 

7C 

FOR 

71 

72 

FOR 

73 

78 

FOP 

7S 

7b 

FOR 

77 

78 

FOR 

79 

PC 

FOR 

e  i 

82 

FOR 

83 

88 

USE 

6  FO 

85 

LOOP 

’  FOR 

86 

PRINT 
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irs  PRINT  1  LINE  WITH  PE»0  ANO  CEM. SAMPLE  THUS 
LAST  PCD  VALUE  READ  WAS  ••••**.*  FOR  NG AG  ** 

TOT  EnDLOOP 
IF8  SKIP  1  LINE 
lf9  PRINT  I  LINE  THUS 
/START  6  CEP  TO  9  TR  SAMPLES  FOR  BLUE  WPNS 

111  FOR  EACH  SAMPLE,  DO 

112  LET  CEM. SAMPLE  =  SAMPLE 

113  FOR  EACH  B.CEM.WPN,  00 

119  LET  TRB.OTY. ON. HANOTB. CE«. WPN, SAMPLE!  = 

US  TB. OTT. ON. HAND 16.CEM. WPN, CEM. SAMPLE  1 

life  LET  TRK.KILLTtt. CEM. WPN, SAMPLE!  r  1 K .K I LL I B . CE M . WPN , CEM . S AMPLE  1 

117  LET  TRM.KILL18. CEM. WPN, SAMPLE  I  =  T m .K I LL ( B .CE M . M Pn ,CFM .S AMPLE  I 

116  PRINT  1  LINE  WITH  Sample, CEM. SAMPLE,  B.CEM.wPN, 

1 19  TR8 .07 T .ON. HAND (B .CEM. WPN, SAMPLE! , 

12C  TRK.KILL18. CEM. WPN, SAMPLE  I, 

121  TRM.KILL1B. CEM. WPN, SAMPLE! 

122  THUS 

FOR  SAMPLE  =  ♦*  NGAG  -  **  B.CEM.WPN  =  **  *••**.*  ••***.* 

129  ENOLOOP 

125  ENDLOOP 

126  SKIP  1  LINE 

127  PRINT  2  LINES  THUS 

/8  CEM  TO  «  TR  SAMPLES  FOR  BLUE  COMPLETED 
/START  MAP  BLUE  DATA  FROM  CEM  TO  AMMO  IDS 
1  3D  LOOP  FOR  EVERY  SAMPLE  DO 

131  LOOP  FOR  EVERY  BLUE. WPN  00 

132  PRINT  1  LINE  WITH  SAMPLE .BLUE .WPN  AND  BLUE .ID  1 BL UE . WPN I  THUS 
SAMPLE  *•  BLUE  WPN  **  BLUE. IOTBLUE. WPN! 

139  IF  9LUE.I01BLUE.WPN1  :  99 

135  LET  B.QTY. ON. HAN018LUE. WPN, SAMPLE)  :  1 

136  LET  K. KILL 1BLUE .»PN, SAMPLE !  r  1 

137  LET  M.KiLLfBLUE. WPN, SAMPLE!  =  1 

13b  GO  TO  LOOPOS 

139  REGAPOLESS 

1 9 C  LET  B.OTY.ON.HANOTBLUE.WPN.SAMPLET 

19  1  =TR8.QTY.0N.HAN0»3LUE . I D 1  BLUE . WPN I , SAMPLE  I 

192  LET  K. KILL1BLUL. WPN, SAMPLE ! 

193  =TRK.KILLTBLUE.ID(BLUE. WPN!, SAMPLE! 

199  LET  M.KILL1BLUE. WPN, SAMPLE! 

195  zTRM.KILL (BLUE. ID< BLUE. WPN I  .SAMPLE  I 

196  PRINT  1  LINE  WITH  P. 0 T T .ON . MA NO  I  BLUE . WPN , SAMPLE  I , 

197  K.KILLIBLUE. WPN, SAMPLE! 

198  ANO  M. KILL (BLUE .WPN, SAMPLE ! 

199  THUS 

••••*.•  *••**.•  *•*»*.* 

151  •LOOPOS*  ENOLOOP 

152  ENDLOOP 

153  SKIP  1  LINE 

1 S  9  PRINT  1  LINES  thus 
/MAP  BLUE  DATA  FROM  CEM  TO  AMMO  ID  COMPLTEED 
1S6  PRINT  1  LINE  THUS 
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/APOIIIUNAL  CEH/AMMO  MAPPING  CORRESTIONS  STARTED 
1  EE  PRINT  1  LINE  WITH  PAY  THUS 
RECCPOING  K  t  H  KILLS  F  OP  0  A  Y  «*» 

1  6  C  USE  <=  EUR  OUTPUT 

1 6  1  FOP  I  -  I  TO  R,  no 

1 (•<  FOR  HLUE.WPN  -  1  TO  TO,  DO 

16  3  LET  NJH.k.kUl  :  0.0 

168  FOR  J  T  I  TO  N. SAMPLE 

1 6 1  ADO  ( C JMB. SAMPLE  t I , J) *K .K ILL  I  BLUE .WPN, J » I  TO  HUA.K.KllL 

166  WRITE  NUM.K.KILL  AS  0(8,11 

167  IT  8LUE.UPN  r  IS  SKIP  1  LINE  ALWAYS 

168  E»C  LOOP 

169  ENDLOOP 

1  TC  FOR  I  -  1  TOR,  DO 

171  FOR  bLuE.WPN  :  1  TO  30,  DO 

17?  LET  NUM.H.KILL  R  O.f) 

1 T3  FOR  J  -  1  TO  N. SAMPLE 

17  4  ADO  (COMB  .SAMPLF (  I  , J I *M . K I L L( 8L U£ . W PN , J»»  TO  NUM.H.KILL 

1 7E  WRITE  NUM.H.KILL  AS  0(8,1) 

176  IF  BLUE.WPN  -  IS  SKIP  1  LINE  ALWAYS 

177  £  f'l.'L  OOP 
176  ENDLOOP 

179  USE  6  F  OR  OU  TPU l 
1FI  PRINT  1  LINES  THUS 
/START  8  CEM  TO  <*  TR  SAMPLES  TOR  RED  WEAPONS 
18?  FOP  r«CH  SAMPLE,  DO 
183  LFT  CEM. SAMPLE  -  SAMPLE 

188  FOR  EACH  R.CEM.WPN,  00 

1 8  c  LET  TRR. CITY. LOSSIR. CEM. WPN.SAMPlEI  : 

186  TR. OTY. LOSS IR.CEM.WPN, CEM. SAMPLE! 

16  7  E  k  C  L  OOP 

186  PRINT  1  LINE  WITH  E A MPLE , CE M . S AM PL E  AND  R.CEM.WPN  AND 

189  TRR . UT Y .LOSS (P .CEM. WPN .SAMPLE  )  THUS 

FOR  sample  r  «»  NGAG  r  •«  R.CEM.WPN  :  •*  TRR.QTY  ;  •***».* 

191  ENDLOOP 
19?  SK IP  1  LINE 

193  PRINT  1  LINES  THUS 

/ 6  CEM  TO  0  TR  SAMPLES  F0.<  RED  COMPLETED 
IPs  LOOP  TOR  EVERY  SAMPLE  00 

196  LOOP  TOR  EVERY  PrD.WPN  00 

197  LET  P.CEM.WPN  -  Rtn.WPN 

196  LET  R.CTY.LOSS(R‘D..PN, SAMPLE)  :  T RR .0 TY . L 0 SS ( R . CEM . WPN, SAMPLE » 

199  ENDLOOP 

?"0  E  NPLOOP 

?C1  SKIP  I  LINE 

?r?  print  i  line  thus 
/ORDERED  CFM  ON  RED  AMMO  COMPLETED/ 

?C8  PETUPN 
?0S  ENDROijT 
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]  ROUTINE  RATIO. COHP(jAY) 

2  NORMALLY  MODE  IS  REAL 

3  SKIP  1  LINE 

9  PRINT  1  LINE  THUS 
////ENTERING  RAT IOSCOMP//// 

6  loop  eor  every  slut./pm  oo 

7  IE  BLUE.IDI9LUE.VPNI  =  99 
a  CYCLE 

9  ENOIF 

1C  LOOP  FOR  EVERY  SAMPLE  00 

11  IF  B. STYLIZED. OTYTPLUE.WPN.SAMPLEI  >  0 

12  LET  B.RATIOIBLUE .vPN.SAMPLEl  -  B .0 T Y .ON .HANOI  9 LUE . VPN , SAMPLE  I 

13  /B.STYLIZEq.QTYIBLUE .VPN, SAMPLE I 
19  r  NDIF 

15  PRINT  1  LINE  WITH  BLUE .VPN , SAMPLE , 

16  B. RAIIOtBLUE. VPN, SAMPLE  1 

17  THUS 

BLUE. VPN  ***  SAMPLE  *  B. PATIO  »•.** 

19  F  NOLOOP 
2G  ENOLOOP 

21  LOOP  FOR  EVERY  SAMPLE  DO 

22  FOR  BLUE. VPN  r  2  TO  19,00 

23  LET  B. ARMOR. ACT1SAMPLEI  =  B . ARMOR . AC T I SA MPLE ) 

29  «B.(lTY.0N.HAN0T8LuE.VPN,SAMPLEl 

25  LET  B. ARMOR. STYTSAMPLE1  =  B . AR MOR . ST Y ( SAMPLE  1 

26  •B.STYLIZED.CTYIPlUE.VPN.SAMPLE) 

27  PRINT  1  LINE  WITH  PLUE. VPN, SAMPLE, 

28  B. ARMOR. ACT  T SAMPLE  1 ,B . ARMOR . S T Y I  SAMPLE  1 

29  THUS 

BLUE. VPN  •••  SAMPLE  *  B. ARM. ACT  •**•*.**  B. ARMOR. STY  *•***.*• 

31  ENOLOOP 

32  ENOLOOP 

33  SKIP  1  LINE 

39  PRINT  1  LINE  THUS 

/TOTALS  BLUE  ARMOR  ANO  ICVAPC  SUMMATION  COMPLETED/ 

36  LET  PFRSTTSAMPLE  I  ::  B . ARMOR . A C T I SAMPl E  l/B . ARMOR . ST Y  I S A MPLE  I 

37  PRINT  1  LINE  WITH  SAMPLE,  9 FR S T 1 SA MPLE I  THUS 
/SAMPLE  *  PFPSTTSAMPLEI  ****.••* 

39  ENOROUTINE 
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]  ROUTINE  C SO. COMP  1 (PAT ) 

C  NORMALLY  MODE  IS  real 
3  DEE  I  N  E  1  AND  J  AS  INTEGER  VARIABLES 
A  SHE  1  LINE 
S  PRINT  1  LINE  thus 
////ENTERING  ESOSCOMPI//// 

I  LOOP  EOR  EVERT  REO.yPN  DO 

8  LOOP  FOR  EVERT  SAMPLE  DO 

R  LET  POS. TOT .LOS (RED. WPN, SAMPLE >  =:  0. 

IC  ENPLOOP 

11  ENOLOOP 
IC  SKIP  1  LINE 
13  PRINT  1  LINE  THUS 

/CEROElJ  POSSIBLE  TOTAL  REP  WEAPON  LOSS  ARRAY  FOR  OAT 
15  LOOP  FOR  EVERY  RFO..PN  00 
IE  LOOP  FOR  EVERY  BLUE .WPN  00 

17  IF  PLRC.K IRED.WPN.BLUE .WPN 1  =  99.9 

18  CYCLE 

19  ENPIF 


?i'  LOOP  FOR  EVERY  SAMPLE  00 

?1  LET  POS. TOT. LOStRED.wPN, SAMPLE) 

22  RPOS. TOT .LOSLRED. VPN, SAMPLE » 

2 3  ♦B.RATIOLBLUE..PN, SAMPLE) 

CA  *PE 0. S T Yl I 7F 0. LOST  RE D.WPN.&LUE. WPN, SAMPLE  ) 

2’j  PRINT  1  LINE  WITH  RlO. WPN, BLUE , WPN, SAMPLE ,B .RATIOLBLUE  .WPN, SAMPLE » 

2 6  ,Pf0. STYLIZED. LOS  L REP . WP N , BLUE  .WPN , SAMPLE ) 

2 7  , POS. TOT .LOSLRlO. WPN, SAMPLE  ) 

?f  ,R.CTY.LOSS(PFO. WPN, SAMPLE)  THUS 

•  •  ••  ••  **•,««  »*».«<■  **♦.*» 


3?  ENOLOOP 

31  ENOLOOP 
31  ENOLOOP 
33  SKIP  1  LINE 
3a  PRINT  1  LINE  THUS 

/COMPUTED  POSSIBLE  TOTAL  RED  LOSS  ARRAY  FOR  DAY 
30  LOOP  FOR  EVERY  SAMPLE,  00 
37  LOOP  FOR  EVERY  ESO,  DO 

3  P  IF  REO.WPN.PTRIESO)  =  0 

39  CYCLE 

A,  OTHERWISE 


a  I  IF  ESO  =  AVA  "ARMOR  VS.  ARMOR 

A  2  IF  R .01 Y .LOSS (R.QTY. I  NOE YtCSOI .SAMPLE )  GT  .9 

A3  LET  EO <F SO .SAMPLE )  =  BF RS T t SA MPLE ) 

aa  *  R.OIr.LOSSTREO.WPN.PTRlESD),  SAMPLE)/ 

AS  PO S. TO T.LOS ( RED. WPN. PTR» ESO), SAMPLE) 

AR  CYCLE 


A  7  ELSE 

AP  LET  EQ (FSO, SAMPLE >  -  0.0 

a  9  CYCLE 


5  0  E  NO  i  f 

SI  f  B.RAl 10.INUEXTES0)  ^  1  "BLUE .  RAT’O 

R  2  LET  '  «ESO, SAMPLE)  :  E .R AT  I  0 \ BLUE . vPM.P IR I ESD  )  ,5/ 7 PLE ) 
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S3  CYCLE 

S9  OTHERWISE 

5  S  IF  R.OTY.LOSSTR.QTY.INDEXIESD), SAMPLE)  ST  .9 

Sb  LET  ECIESD, SAMPLE  )  -  B . P A T I  0 1  BLUE . wPN. P TR 1 ESD ) , SAMPLE  I 

57  *  R.OTY.LOSSlRED.wPN.PTRiESP), SAMPLE)  / 

SB  POS.TOT.LOSIREO.WPN.PTR«ESD),SAMPLE> 

59  ELSE 

60  LET  EOTESO, SAMPLE)  =  0. 

B 1  ENOIF 

62  ENOLOOP 

63  FOR  ESO  :  1  TO  40  i  00 

69  PRINT  1  LINE  WITH  FSO, SAMPLE, E 0  I FSD , SAMPLE > THUS 
ESO  **  SAMPLE  **  EO. STY. DAY  **.*•**•* 

66  ENOLOOP 

67  ENOLOOP 

66  PRINT  I  LINE  WITH  OAY  THUS 
FRECOROING  ESDS  FOR  DAY  *** 

7C  USE  9  FOR  OUTPUT 

71  FOP  1  :  I  TO  4,  00 

72  FOR  ESO  =  1  TO  90,  00 

73  LET  EOSDAY  ;  0.0 

79  FOR  J  :  1  TO  N. SAMPLE 

75  ADD  (COMB. SAMPLE 1 1 ,J)*EC(ESO,J)  >  TO  EOSDAY 

76  WRITE  EOSDAY  AS  015,2) 

77  IF  ESO  :  20  SKIP  1  LINE  ALWAYS 

78  ENOLOOP 

79  ENOLOOP 

BO  USE  6  FOR  OUTPUT 

81  RETURN 

82  ENOROUTINC 


Figure  III. 2. 23  (Cont.) 
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CHAPTER  3 


REPORT  GENERATOR  PROGRAM 


3.1  DESCRIPTION  OF  PROCESSING:  The  Report  Generator  program 
consists  of  one  large  program;  the  total  listing  has  914  records  with  47%  of 
the  records  being  programmer  comments  or  482  records  of  executable 
FORTRAN  code.  The  program  was  developed  as  a  post-processor  to  the 
Theater  Rates  Model,  a  major  component  of  the  predecessor  Ammo-Rates 
Methodology.  It  has  subsequently  been  retained  for  use  and  application  in 
the  WARRAMP  methodology. 

3.1.1  PURPOSE/FUNCTIONS:  The  Report  Generator  program  is  designed 
to  read  four  input  data  files,  one  produced  by  the  previously  discussed  ESD 
program,  the  remaining  three  manually  developed  by  the  user/analyst.  The 
program  then  computes  ammunition  requirements  for  four  main  consumption 
categories,  and  produces  two  output  files.  The  primary  output  file  contains 
three  reports  for  the  user.  The  secondary  output  file  is  prepared  for  an 
eventual  mass  storage  to  tape  copy;  the  tape  is  subsequently  furnished  to  the 
Army  staff  (ODCSLOG).  The  three  reports  (primary  output  file)  are 
produced  seperately  during  program  execution,  but  merged  into  the  one 
output  file  by  the  program,  not  the  runstream. 

3.1.2  PROGRAM  INPUT/OUTPUT  STRUCTURE:  The  program  I/O 
structure  is  presented  in  Figure  III.3.1.  The  internal  integer  value  indicates 
the  initial  order  of  input  for  the  input  data  files.  The  integer  outside  the 
flow  chart  symbol  at  the  upper  corner  is  the  logical  unit  assigned  to  the 
input  and  output  data  files  by  the  program  run  (start  file)  stream  and  is 
expected  by  the  program. 

3. 1.2. A  INPUT  DATA  and  DATA  BASE;  The  four  input  data  files  are  not  part 

of  a  formal  data  base  organization.  The  files  are  developed  or  updated  in 
the  course  of  the  application  of  the  preceeding  APP  programs  or  manually 
updated  in  the  course  of  the  study  program  progress  to  provide  current  data, 
drawing  data  from  the  COSAGE  or  CEM  models.  It  is  incumbent  on  the 
user /analyst  to  properly  catalog  and  maintain  the  input  data  files.  It  follows 
that  the  user/analyst  must  be  consulted  for  the  cataloged  file  name  and 
element  name  of  the  current  data  files.  A  version  name  may  be  appended  to 
the  element  name  to  assist  in  providing  a  data  audit  trail  and  to  distinguish 
the  current  file.  The  formats  of  the  data  is  given  in  Volume  III,  Chapter  3  of 
this  documentation  set.  Those  discussed  in  that  volume  are  not  duplicated 
herein.  Below  is  a  summary  of  the  input  data  files. 

The  maintenance  programmer  should  note  that  records  355  through  362  of 
the  program  are  programmed  input  data  values  that  contain  integer  data  for 
the  time  periods  and  label  data  for  output. 

o  AMMOUT  -  This  file  is  produced  by  the  ESD  program  and  maintained 
on  the  system  as  a  program  (PRINT)  file  by  the  user /analyst.  The  file 
resides  on  a  fixed  mass  storage  device,  is  expected  to  have  a  classified 
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file  qualifier  and  read/write  keys.  During  the  start  file  execution  the 
file  is  referenced  to  logical  unit  10  via  the  (9USE  command  in  the 
runstream  in  preparation  for  input  to  the  program.  The  file  is  lengthy, 
and  normally  contains  6840  records  of  data;  a  block  of  38  records 
contains  data  for  each  day  of  combat  modeled  in  the  campaign  or 
war.  All  data  values  are  real  (decimal)  with  two  formats  used;  the 
first  is  15  data  points  per  record.  All  the  data  file  is  read  sequentially 
and  all  data  values  are  read  by  the  program.  The  data  file  is  read 
early  in  the  program  without  switching  logical  input  units.  Figure 
III.3.2  presents  a  sample  of  the  data. 

o  PF.ISD  (Input  Stylized  Day)  -  this  file  element  is  created  and 
maintained  by  the  user/analyst  on  a  user  designated  mass  storage 
device.  The  program  file  can  be  expected  to  have  a  classified  file 
qualifier  and  read/write  keys.  The  data  is  (dADD'd  to  the  program 
runstream  and  thus  uses  logical  unit  5  for  input  to  the  program.  The 
file  is  short  with  one  record  for  each  day  of  war  modeled,  and  each 
record  has  one  integer  data  value.  The  data  file  is  read  sequentially 
and  all  data  values  are  read  by  the  program.  The  data  presented  to  the 
program  is  the  stylized  day  sample  number  to  be  used  in  the  program 
computation;  however  the  code  does  not  employ  this  value  in  the 
computations.  An  example  of  this  data  file  is  depicted  in  Figure 
III.3.3. 

o  PF.DATA  -  this  file  is  manually  created  and  maintained  by  the 
user/analyst.  The  description  of  the  file  composition  is  a  carry-over 
from  the  early  practice  of  employing  a  punched  card  check  for  data. 
The  file  is  composed  of  groups  of  records  that  define  a  weapon  (firing) 
system  that  may  be  a  component  of  an  end  item  of  equipment.  A 
weapon  system  is  defined  through  a  group  of  six  (6)  card  types. 
Therefore  the  total  quantity  of  cards  (records)  necessary  to  provide 
data  definition  to  a  weapon  system  and  the  types  of  munitions 
available  to  it  will  vary.  The  program  file  resides  on  a  fixed  mass 
storage  device  is  expected  to  have  a  classified  file  qualifier  and 
read/write  keys.  The  file  exists  as  an  element  to  the  program  file. 
The  data  is  (SADD'd  to  the  program  runstream  following  the  (9XQT 
Executive-8  command  as  it  uses  logical  Unit  5  for  input  to  the 
program.  The  data  file  is  read  sequentially  and  all  data  values  are 
read  by  the  program. 

Figure  II1.3.4  presents  a  sample  of  the  data  file.  Note  that  a  "99"  in 
columns  1  -  2  of  a  record  denote  the  end  of  a  block  of  data  pertinent 
to  a  munition  of  a  weapon  system. 

o  PF. TITLE  -  this  file  is  manually  created  and  maintained  by  the 

user 'analysts.  The  program  file  resides  on  a  fixed  mass  storage  device 
and  can  be  expected  to  have  a  classified  qualifier  and  read/write 
keys.  The  file  exists  as  an  element  of  the  program  file.  This  file  is 
small,  containing  approximately  9  lines  of  integer  and  alphanumeric 
data.  An  example  of  the  file  is  depicted  in  Figure  III. 3.5.  The  file 
provides  user  input  terms  for  the  output  report  headings  with 
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classification  as  well  as  historical  sea  loss  data,  and  report  pagination 
data.  The  file  element  is  @ADD'd  to  the  execution  runstream 
following  the  (9XQT  Executive  -  8  command  and  this  uses  logical  unit 
5  for  input  to  the  program.  The  data  file  is  read  sequentially  and  all 
data  values  are  read  by  the  program. 

•2.B  OUTPUT  DATA  and  DATA  FILES;  The  program  produces  the  three 
reports  in  one  cataloged  print  file  as  its  main  function.  Additionally,  the 
special  file  **SEVEN  is  produced  in  a  special  format  for  transportation  to 
the  Army  Staff  when  copied  to  tape.  The  temporary  program  file  (TPF$) 
generated  by  the  system  is  also  produced,  but  not  discussed  in  this  manual. 
These  files  are  a  product  managed  by  the  user/analyst  and  are  not  a  part  of 
a  formal  database.  It  is  incumbent  upon  the  user  to  properly  catalog  and 
maintain  these  files.  The  execution  runstream  normally  handles  these 
functions.  The  runstream  as  well  as  the  necessary  data  formats  are 
discussed  in  Volume  III,  Chapter  3  of  this  documentation  set.  The  following 
is  a  summmary  of  the  output  data  files. 

o  REPORT1  -  This  file  is  referred  to  as  the  "Main  Report"  of  the 
program  and  employs  the  default  output  logical  unit  6  for  data 
placement.  The  file  is  labeled  for  analyst  reading  and  interpretation. 
The  report  details  for  each  weapon  system/munitions  combination,  the 
quantities  deployed  and  consumed  for  each  analytical  time  period.  An 
example  of  this  output  data  file  is  depicted  in  Figure  III. 3.6.  There  are 
typically  2200  lines  of  output  or  approximately  40  pages  of  printed 
copy  produced.  Approximately  300  tracks  of  mass  storage  space  is 
allocated  for  this  report. 

o  THREE  -  DAY  PILE  REPORT  -  This  report  is  produced  by  the  program 
in  temporary  file  cataloged  to  logical  unit  2  for  program  reference 
with  200  tracks  of  mass  storage  space  reserved.  The  file  is  labeled  for 
analyst  reading  and  interpretation  and  contains  computed  output  for 
weapon  system  and  munition  requirements,  in  quantites  and  tonnage,  in 
3  day  increments  or  piles.  The  file  typically  contains  900  lines 
(records)  or  approximately  16  print  pages  of  printed  output.  An 
example  of  this  report  is  presented  in  Figure  1II.3.7.  At  the  conclusion 
of  computations  in  the  program  and  the  writing  onto  Unit  2,  the 
contents  of  Unit  2  are  edited  onto  Unit  6,  so  this  report  is  printed  out 
as  the  second  part  of  the  total  report  print  file. 

o  DISTRIBUTION  OF  REQUIREMENTS  REPORT  -  This  report  is 
produced  by  the  program  and  written  out  to  a  temporary  file  cataloged 
and  referenced  to  Unit  3  for  program  reference  with  500  tracks  of 
mass  storage  space  reserved.  The  file  is  labeled  for  analyst  reading 
and  interpretation.  It  contains  computed  output  that  details  for  each 
weapon/munition  combination,  and  time  period,  the  quantity  of 
munitions  consumed  in  the  different  consumption  categories.  The  file 
typically  contains  3700  lines  (records)  or  approximately  66  pages  of 
printed  output.  At  the  conclusion  of  computations  and  output  writing 
in  the  program,  the  (file)  contents  of  Unit  3  are  edited  onto  Unit  6,  so 
this  report  is  printed  as  the  third  part  of  the  total  report  print  file.  An 
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example  of  this  file  is  depicted  in  Figure  III.3.8. 


o  SEVEN  -  This  file  is  produced  by  the  program  for  the  specific  purpose 
of  providing  logistic  data  to  the  Army  staff.  The  file  is  reference  via 
an  (9 USE  command  to  logical  unit  7  for  output  (hence  the  name)  to  a 
permenantly  cataloged  file  of  the  same  name.  It  exists  as  «  program 
or  print  file  which  does  not  have  a  classified  file  qualifier.  The  file  is 
labeled  with  titling  data  input  as  well  as  programmed  label 
instructions.  The  values  output  are  the  computed  logistic  rates  of 
consumption  per  each  of  the  average  deployment  levels  per  each  of  the 
twelve  analytical  time  periods  for  a  given  weapon  system  and 
munition.  An  example  of  this  output  file  is  depicted  in  Figure  III. 3.9. 


3.1.2.C  DATA  ELEMENT  DICTIONARY:  The  following  variable  names  are 


employed  in  the  program. 
Name 


Definition 


ADEP(I) 


A  one-dimensional  real  array  that  is  set  to  the 
average  deployment  of  a  weapon  system  (a 
computed  value)  in  each  of  the  following 
analytical  periods  when: 


AMUN(I) 


ATITLE(I) 


BTITLE(I) 


I  =  1; 

days 

1  - 

15 

I  =  2; 

days 

16  - 

30 

I  =  3; 

days 

1  - 

30 

I  =  4; 

days 

31  - 

60 

I  =  5; 

days 

61  - 

90 

I  =  6; 

days 

31  - 

90 

I  =  7; 

days 

1  - 

90 

I  =  8; 

days 

91  - 

120 

1  =  9; 

days 

121  - 

150 

I  =  10; 

days 

151  ■ 

-  180 

I  =  11; 

days 

91  - 

•  180 

I  =  12; 

days 

1  - 

180 

A  one-dimensional 

real 

array 

a  munition  used  (fired)  by  a  weapon  system; 
reserved  as  5,  a  system  may  have  up  to  5  types 
of  munitions. 

A  one-dimensional  real  (alpha)  array  set  to  the 
title  or  heading  for  the  expenditure  report; 
reserved  as  17  to  hold  102  characters  of  heading 
data  (read)  presented  on  2  records  (72  and  30, 
respectively). 

A  one-dimensional  real  (alpha)  array  set  to  the 
title  or  heading  for  the  3-day  ammunition  pile 
report;  reserved  as  17  to  hold  102  characters  of 
heading  data  (read)  presented  on  2  records  (72 
and  30,  respectively). 
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CONC(I) 

CTITLE 

DAYS(I) 

DEP(I) 

DOR(I,3) 


A  one-dimensional  real  (alpha)  array  set  in  a 
DATA  statement  in  the  program  to 
"CONTINUED";  reserved  as  2. 

A  one-dimensional  real  (alpha)  array  set  to  the 
title  or  output  report  heading  for  the  distribution 
of  requirements  (DOR)  report;  reserved  as  17  to 
hold  107  characters  of  heading  data  (read) 
presented  on  2  records  (72  and  30,  respectively). 

A  one-dimensional  real  array  set  in  a  DATA 
program  statement  to  the  values  as  follows; 
reserved  as  12  for  the  number  of  days  of  modeled 
combat  in  each  period: 


1,2 

15  days 

3,4,5 

30  days 

=  6 

60  days 

=  7 

90  days 

=  8,9,10 

30  days 

=  11 

90  days 

=  12 

180  days 

A  one-dimensional  real  array  set  to  the  input 
data,  or  quantities  of  each  weapon  system 
deployed  in  each  of  the  following  time  periods; 
reserved  as  8: 


D-day 

days  1  -  15 
days  16  -  30 
days  31-60 
days  61-90 
days  91  -  120 
days  121  -  150 
days  151  -  180 

A  two-dimensional  real  array  set  to  the 
computed  ammunition  requirement  in  rounds  of  a 
munition  of  a  weapon  system  in  the  ith  period 
and  jth  type  of  requirement.  Reserved  as  7  by  17 
with  i  and  j  defined  as  follows: 


I  =  7 
I  =  3 
I  =  4 
I  =  5 
I  =  6 
I  =  7 
I  =  8 


I 


1  =  days  1  -  15 

2  =  days  16  -  30 

3  =  days  31  -  60 

4  =  days  61  -  90 

5  =  days  91  -  120 

6  =  days  121  -  150 

7  =  days  151  -  180 


143 


J  :  1  =  Computed  value  from 

the  factors  input,  based 
upon  total  expenditures 
in  the  time  period. 

2  =  Combat  losses  in  delay. 

3  =  Combat  losses  in 

defense  intense. 

4  =  Combat  losses  in 

defense  light. 

5  =  Combat  losses  in 

attack. 

6  =  Weapon  system  zeroing 

in  deployment. 

7  =  Weapon  system  zeroing 

on  return  to  duty. 

8  =  Weapon  system  zeroing 

on  replacement  to  unit. 

9  =  Weapon  system  zeroing 

on  return  to 

replacement  pool. 

10  =  Firing  in  delay  mission. 

1 1  =  Firing  in  defense 

intense  mission. 

12  =  Firing  in  defense  light 

mission. 

13  =  Firing  in  attack 

mission. 

A  three-dimensional  real  array  set  to  the 
equivalent  stylized  day  value  from  input  data  for 
a  weapon  system  on  the  ith  day,  jth  E5D  number 
and  kth  posture  or  mission.  Reserved  as  180 
(days)  by  40  (ESD  numbers)  by  4  (missions).  The 
values  and  definition  of  K  ares 

1  =  Delay  mission  (posture). 

2  =  Defense  Intense  mission 

(posture). 


3  =  Defense  Light  mission  (posture). 

4  =  Attack  mission  (posture). 


ESL(I,J,K) 


FAC(I) 


IA 

IAA 

IAAA 

IAP 


A  three-dimensional  real  array  set  to  the 
quantity  of  computed  stylized  losses  for  each 
blue  equipment  (weapon  system)  for  each  three- 
day  period  by  posture.  Reserved  as  60  (3-day 
periods)  by  30  (maximum  blue  weapon  systems) 
by  4  (postures  or  missions). 

A  one-dimensional  real  array  set,  on  data  input, 
to  the  expenditure  factors  for  a  given  weapon 
system  for  the  ith  period.  Depending  upon  the 
computational  method  designed,  the  factor  may 
be  for  the  3-day  pile  (normal)  method  or  a  rate 
factor  for  the  rates  computation  method. 
Reserved  as  9,  the  ith  value  is  defined  as  follows: 

1  =  Logistic  loss  factor 

2  =  H  &  I  firing  factor 

3  =  Days  1-15  firing  factor 

4  =  Days  16-30  firing  factor 

5  =  Days  31-60  firing  factor 

6  =  Days  61-90  firing  factor 

7  =  Days  91  -  120  firing  factor 

8  =  Days  121  -  150  firing  factor 

9  =  Days  151  -  180  firing  factor 

An  integer  variable,  set  as  a  counter  to  the 
number  of  lines  (records)  that  have  been  printed 
on  a  page  in  the  main  report. 

An  integer  variable,  set  during  data  input  to  the 
number  of  lines  (records)  desired  in  the  main 
report. 

An  integer  variable  set  during  data  input  to  the 
total  number  of  pages  desired  in  the  main  report. 

An  integer  variable,  set  as  a  counter,  to  the 
number  of  pages  in  the  main  report. 


145 


An  integer  variable,  set  as  a  counter,  to  the 
number  of  lines  that  have  been  printed  on  a  page 
in  the  second  (3  -  Day  Pile)  report. 

An  integer  variable,  set  on  data  input,  to  the 
number  of  lines  (records)  desired  on  a  page  of  the 
3  -  Day  Pile  report. 

An  integer  variable,  set  as  a  counter,  to  the 
number  of  pages  in  the  3  -  Day  pile  report. 

An  integer  variable  used  as  an  indicator  or  flag, 
set  on  data  input,  to  denote  that  a  munition  of  a 
weapon  system  is  a  business  round.  Values  used 
are: 


1  =  Business  round. 

0  =  Non-business  round. 

An  integer  variable,  set  on  data  input,  to  the 
card  type  being  read  by  the  program.  Types  are: 

1  -  Weapons  System  name  card 

2  -  Deployment  data  card. 

3  -  Munitions  data  card. 

^  -  Expenditure  factor  card. 

5  -  Stylized  losses  card. 

6  -  Stylized  expenditures  card. 

Note  the  value  of  99  in  the  column  1  -2  position 
in  lieu  of  the  6  denotes  the  last  card  (record)  in 
the  block  of  data  defining  a  munition  of  a 
weapon  system. 

An  integer  variable,  set  on  data  input,  to  the 
desired  number  of  lines  (records)  on  a  page  of  the 
third  (Distribution  of  Requirements)  report. 

An  integer  variable,  set  on  data  input,  to  the 
desired  number  of  pages  in  the  Distribution  of 
Requirements  report. 


An  integer  variable,  set  as  a  counter,  to  the  page 
of  the  Distribution  of  Requirements  report. 


IE 


ID(I) 


IIO) 


IM 


ISD(I) 

ISVEC(I) 


IESD 


IT 

ITOT 

JEVEC(I) 


An  integer  variable,  set  as  a  counter,  to  the 
number  of  lines  records  in  the  Distribution  of 
Requirements  Report. 


A  one-dimensional  integer  array  set  on 
programmed  data  input  (line  356)  to  the  periods 
for  report  headings  as  follows;  reserved  as  7: 


2 

3 

4 

5 

6 
7 


15 

30 

60 

90 

120 

150 

180 


A  one-dimensional  integer  array  set  to  computed 
values  (constants)  for  the  3-Day  Pile  Report. 
Reserved  as  60. 


An  integer  variable  set  on  data  input  on  Card 
type  3  for  a  type  of  munition  of  a  weapon 
systems  to  the  computation  method  to  be  used 
for  the  munition.  Values  used  are: 

0  =  3-day  pile  method. 

1  =  Rates  method. 

An  integer  one-dimensional  array  set  in  data 
input  to  the  sample  number  to  apply  to 
computations  on  the  ith  day.  Reserved  as  180. 

An  integer,  one-dimensional  array,  set  to  the 
value  of  ISAM,  which  is  always  999.  Reserved  as 
50. 

An  integer  variable,  set  on  data  input  to  the  ESD 
number  for  the  munition  expenditures  of  a 
weapon  system  from  card  type  6. 

An  integer  variable,  set  on  data  input  to  the 
equipment  type  or  system  number  on  card  type  5. 

An  integer  variable,  set  as  a  counter  and  used  as 
a  flag  in  logic  tests  for  output  printing. 

A  one-dimensional  integer  array  set  to  the  value 
of  IESD,  reserved  as  50.  The  array  serves  as  a 
vector  to  the  ESD  numbers  for  a  munition  of  a 
weapon  system. 
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IPRT 


An  integer  variable  set  on  data  input,  on  Card 
type  2,  for  each  weapon  system  as  an  output 
print  flag.  Values  used  are: 


ISCALE 

IS(I) 

ISAM 

ISC 

RATE(l) 


0  =  Print  weapon  deployment  levels. 

1  =  Do  not  print  weapon  deployment 

levels. 

An  integer  variable  set  on  data  input,  on  Card 
type  4,  for  each  weapon  system  to  the 
exponential  factor  (ten  to  the  ISCALE  power)  for 
calculations. 

An  integer  one-dimensional  array  used  for  logic 
tests  to  determine  output  printing  intervals,  set 
on  programmed  data  input  (line  358).  Reserved 
as  7  the  set  values  are: 


2 

3 

4 

5 

6 
7 


1 

16 

31 

61 

91 

121 

151 


An  integer  variable  set  on  data  input  to  the  value 
of  the  sample  number  for  the  stylized 
expenditure  on  Card  type  6.  Set  to  999,  always. 

An  integer  variable  used  as  a  counter  in  reading 
munitions  card  6,  expenditure  data. 

A  one-dimensional  real  array  set  to  the 
computed  expenditure  rate  of  munitions  for  the 
ith  period.  Reserved  as  12,  the  value  of  i 
correlates  to  the  following  periods: 


1 

days 

1  - 

15 

2 

days 

16 

30 

3 

days 

1  - 

30 

4 

days 

31 

60 

5 

days 

61 

90 

6 

days 

31 

90 

7 

days 

1  - 

90 

8 

days 

91 

120 

9 

days 

121 

-  150 

10 

days 

151 

-  180 

1 1 

days 

91  - 

1 80 

12 

days 

1  - 

180 

1  48 


ROUND(I) 


SE(I) 

SEALOSS(I) 

SEVEC(J,I) 

SFAC(I) 

SLPS(I) 


i 


A  one-dimensional  real  array  set  to  the 
computed  number  of  rounds  expended  of  a 
munitions  in  the  ith  period.  The  value  of  i 
correlates  as  described  above  for  RATE(I). 
Reserved  as  12. 

A  one-dimensional  real  array  set  to  the  stylized 
expenditure  of  munitions  by  a  weapon  system  in 
a  given  posture.  Reserved  as  4;  the  values  of  i 
correlate  as  follows: 

1  :  Delay  posture  (mission) 

2  :  Defense  intense  posture 

3  :  Defense  light  posture 

4  :  Attack  posture 

A  one-dimensional  real  array  set  to  the  data 
input  shipping  loss  factor  of  a  munition  of  a 
weapon  system  for  the  ith  period,  where  is 
represents: 

1  :  days  1  -  13 

2  :  days  16  -  30 

3  :  days  31  -  60 

4  :  days  61  -  90 

5  :  days  91  -  120 

6  :  days  121  -  150 

7  :  days  151  -  180 

A  two-dimensional  real  array  (utilized  as  a 
vector)  set  to  the  stylized  expenditures  of  a 
single  munition  of  a  weapon  system  in  the  jth 
posture  an  the  ith  set  to  SE(I).  Reserved  as  4 
(postures)  by  50  (up  to  50  cards). 

A  one-dimensional  real  array  set  to  the  sum  of 
the  munition  expenditure  factors  2  through  9  for 
business  round  computations.  Reserved  as  8. 

A  one-dimensional  real  array  set  on  data  input  to 
the  stylized  losses  per  (weapon)  system  by 
posture.  Reserved  as  4  (postures),  the  ith  value 
corrleates  as  follows: 

1  =  1  :  Delay  posture  (mission) 

2  :  Defense  Intense  posture 

3  :  Defense  Light  posture 

4  :  Attack  posture 


SROUND  (I) 


STOP(I) 


STONS(I) 


STIM(J) 


IDEP(I) 


TDP(I) 


TONS(I) 


A  one-dimensional  real  array  set  to  the 
computed  sum  of  the  ROUND(I)  array  or  the 
total  number  of  rounds  expended  of  a  munition 
by  a  weapon  system.  Reserved  as  12  for  the  12 
analytical  time  periods  referred  to  in  the 
ADEP(I)  definition  of  the  ith  value. 

A  one-dimensional  real  array  set  to  the 

computed  sum  of  the  TDP(I)  or  three-day  pile 
array  for  a  munition  of  a  weapon  system; 
reserved  as  30,  the  ith  value  correlates  to  a  3 
day  increment  where: 

I  =  1  :  days  1  -  3 

2  :  days  4-6 

3  :  days  7-0,  etc 

A  one-dimensional  real  array  set  to  the 

computed  weight,  in  tons  (2000  pounds),  of  a 
three  day  pile  of  the  munitions  of  a  weapon 
system.  Reserved  as  30  (up  to  90  days),  the  ith 
value  correlates  to  a  3-day  increment  as 
described  above. 

A  one-dimensional  real  array  set  to 
alphanumerics  programmed  (lines  360  -  362)  and 
used  as  labels  for  the  output  report.  Reserved  as 
17,  the  ith  value  or  label  correlates  to  stimulus 
definitions  as  described  for  variable  DOR  (I,  3). 

A  one-dimensional  real  array  set  to  the 

computed  total  deployment  of  a  weapon  system 
for  the  ith  period.  Reserved  as  12,  the  I 
correlates  to  the  analytical  periods  defined  under 
ADEP(I) 

A  one-dimensional  real  array  set  to  the  data 
input  quantity  of  munitions  expended  by  a 
weapon  system  in  three  day  piles.  Reserved  as 
30,  I  correlates  to  the  3  -  day  period,  up  to  90 
days,  as  defined  in  STDP(I). 

A  one-dimensional  real  array  set  to  the 

'  omputed  weight  of  a  three-day  pile  of  munitions 
f  a  weapon  system,  in  tons  (2000  lbs).  Reserved 
as  12,  the  ith  value  correlates  to  the  analytical 
period  as  defined  under  ADEP(I). 

A  one-dimensional  real  array  used  to  hold  the 
programmed  alphanumeric  input  (line  359)  used 
for  output  report  labeling;  reserved  as  2  and  set 
to  "WEAPONTOTAL". 


TOTAL(I) 


TSTONS(I) 


WPN(I) 


A  one-dimensional  real  array  set  to  the 
computed  total  tons  of  all  munitions  expended  by 
a  weapon  system  in  a  period.  Reserved  as  12, 
the  ith  analytical  period  correlates  to  the  periods 
defined  under  ADEP(I). 

A  one-dimensional  real  array  set  to  the  data 
input  alphanumeric  name  of  the  weapon  of 
analytical  interest.  Reserved  as  10  to  hold  up  to 
40  charactors  of  information. 


WEIGHT 


ZE(I,J) 


ZZE(I,J,K) 


ZERO 


A  real  variable  set  on  data  input  to  the  pounds 
per  round,  in  decimal  fraction,  of  a  munition  of  a 
weapon  system. 

A  two-dimensional  real  array  set  to  the 
computed  zeroing  requirements.  Reserved  as  60 
by  30  for  the  breakout  of  180  day  to  60  3-day 
periods  and  the  30  3-day  pile  data  for  each  blue 
equipment. 

A  three-dimensional  real  array  set  to  computed 
zeroing  requirements  for  each  analytical  period 
(I),  for  each  zeroing  stimulus  (J)  and  each 
equipment  type  (K).  Reserved  as  7  by  4  by  30, 
the  index  values  correlate  as  follows: 


days  1-15 
days  16  -  30 
days  31-60 
days  61-90 
days  91  -  120 
days  121  -  150 
days  151  -  180 

Initial  Deployment 
Return  to  Duty  to  Unit 
Replacement  to  Unit 
Return  to  Replacement  Pool 


K  =  Weapon  System  (Equipment)  type 
as  input,  value  1  -  30. 

A  real  variable  set  on  data  input  to  the  quantity 
of  rounds  required  to  zero  the  weapon  system. 


3.1.3  PROGRAM  PROCESSING:  The  program  has  no  subroutines;  hence  the 
program  is  self  contained  and  executes  sequentially. 

3.1.3.A  PROGRAM  RUN  DESCRIPTION  -  The  procedure  or  "START'  file  to 
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execute  the  Report  Generator  Porgram  is  depicted  and  discussed  in  Volume 
III,  Chapter  3  of  this  documentation  set.  The  start  file  as  well  as  the  object 
program  and  source  code  resides  in  permanently  cataloged  program  file 
elements  under  the  current  APP  user/analysts'  computer  user  identification 
number.  The  start  file  or  execution  runstream  is  designed  to  be  submitted 
as  a  batch  run  to  the  system.  The  submission  is  normally  made  in  the 
demand  mode  from  a  computer  terminal.  The  program  requires 
approximately  25K  words  (36  -  bit)  of  main  memeory  for  execution  and 
approximately  3  minutes  of  CPU  time.  It  runs  on  the  system  in  under  18 
minutes  of  clock  time. 

3.1.3  PROGRAM  LOGIC  -  The  program  logic  is  depicted  and  flow  charted  in 

Figure  III.3.10.  The  program  source  code  is  provided  in  Figure  III.3.11. 

3.1.3.C  PROCESSING  FEATURES  -  The  Report  Generator  performs  the 
following  functions: 

o  Initializes  the  program  by: 

oo  computing  values  for  the  II  (I)  array 

oo  Reading  the  AMMOUT  data,  computing  selected  array 
values  and  storing  data  in  arrays. 

oo  Reads  the  titling  data 
o  Titles  the  output  reports 

o  Reads  the  Data  file  containing  munitions  and  weapons  data  cards 

1  through  6. 

o  Based  upon  the  input  computation  method,  computes  either 

1)  The  normal  or  pile  methods  followed  by  rates 
computations,  or 

2)  The  rates  method. 

oo  If  the  pile  method  is  used  writes  out  the  report  on  Unit  2. 
o  Write  out  the  results  for  the  ODCSLOG  report  on  unit  7. 
o  Writes  out  the  main  report  on  Unit  6 

o  "  -!tes  out  the  distribution  of  requirements  report  on  unit  3. 

o  Edits  the  3  -  Day  pile  report  onto  Unit  6. 
o  Edits  the  DOR  onto  unit  6. 


3.2  OPERATING  ENVIRONMENT 


The  Report  Generator  program  is 


implemented  on  the  USACAA  UNIVAC  1100/82  computer.  The  program  is 
submitted  to  the  system  in  the  demand  mode  and  is  processed  in  a  batch 
environment  for  efficient  use  of  resources.  The  program  was  developed 
under  the  UNIVAC  architecture  with  36  -  bit  computer  words  (6  -  byte). 

3.2.1  HARDWARE  -  The  UNIVAC  1100/82  mainframe  and  perpheral  devices 
support  the  program  maintenance  and  application.  The  program  execution 
runstream  fixed  or  removable  disk  (on-line)  storage  requirements  are  as 
follows: 

Unit  2  -  200  tracks 

Unit  3  -  500  tracks 

Unit  6  -  1000  (breakpointed  file)  tracks 

Unit  7  -  default,  128  tracks 

Tape  processing  is  not  a  part  of  the  program  execution;  the  **SEVEN  file 
mass  storage  to  tape  copy  must  be  performed  by  the  use  at  a  computer 
terminal.  A  printer  is  employed  for  a  hard  copy  of  the  output  files. 
Normally  the  operating  system  directs  the  assignment  of  the  mass  storage 
(disk)  devices. 

3.2.2  SUPPORT  SOFTWARE  -  The  program  compilation  and  application 
(execution)  requires  the  following  system  processors: 

(9 FOR  —  The  FORTRAN  IV  language  processor  or  compiler. 

@MAP  —  The  processor  or  collector  to  form  the  executable 
program  from  the  from  the  compiler  produced  relocatable 
object  code. 

@ED  —  The  editor  processor. 

3.2.2. A  OPERATING  SYSTEM  -  The  UNIVAC  EXECUTIVE  -  8  operating 

system  provides  the  necessary  support  for  the  program.  The  supporting 
software  is  contained  in  the  system  library  (SYS$LIB$  and  SYS$RLIB$). 

3.2.2. B  COMPILER  -  The  operating  system  library  contains  the  FORTRAN  IV 

compiler  and  is  accessed  by  the  EXECUTIVE  -  8  command  @FOR.  Refer  to 
UNIVAC  Publication  (UP)  4060  for  runstream  requirements  and  features  for 
compilation. 

3.2.3  DATABASE  -  The  data  base  and  files  necessary  for  program  execution 
were  discussed  in  paragraph  III. 3. 2. A.  These  files  are  all  FIELDDATA  in 
System  Data  Format.  These  files  exist  as  user  cataloged  files  and  elements 
and  are  not  part  of  a  formal  database  structure. 

3.3  MAINTENANCE  PROCEDURES  -  The  relative  size  of  the  program  and  it's 
containment  within  one  program  minimizes  the  maintenance.  The 
maintenance  extends  to  insuring  that  a  copy  of  the  symbolic  (source)  code  is 
preserved  (on  tape  or  punched  cards),  that  page  by  page  changes  are  made  to 
the  documentation  as  changes/maintenance  is  accomplished,  and  that  the 


symbolic  code  be  annotated  with  comments  by  the  programmer  personnel 
can  track  the  changes.  The  following  information  is  pertinent  to  the 
program  maintenance  (space  provided  for  notes): 

Source  (symbolic)  code  Filename. Element  name: 

Absolute  (object)  code  Filename.Element  name: 

Space  Required,  source  code: 

Space  Required,  absolute  code: 

Archived  tape  label  and  Locations: 

Read/Write  keys  -  established  by  current  custodian,  name: 

PROGRAMMING  CONVENTIONS  -  The  program  follows  standard 
FORTRAN  programming  techniques.  Highlights  are  as  follows: 

o  The  data  variables  are  defined  in  commented  records  at  the  beginning 
of  the  programs  symbolic  code. 

o  All  read  and  write  format  statements  are  declared  at  the  beginning  of 
the  program. 

o  Implied  Do-loops  are  used. 

o  The  source  code  is  liberally  commented  and  highlighted, 
o  Computed  Go-to  statements  are  employed, 

o  The  source  code  contains  programmed  data  in  records  355  -  362. 
o  The  integer  to  real  "FLOAT"  conversion  is  used. 

o  Programmed  edit  statements  are  used  at  the  end  of  the  program  to 
copy  file  contents. 

VERIFICATION  PROCEDURES  -  The  program  is  verified  by 
performing  execution  runs  of  the  program  with  test  data,  which  must  be 
followed  by  hand  calculations  of  the  same  data  utilizing  the  source  code 
algorithms  and,  then  comparing  results.  The  sequence  of  the  execution  can 
be  tracked  with  the  output  files. 

ERROR  CORRECTION  PROCEDURES  -  The  program  does  not  employ 
any  programmed  debugging  aids  or  calls  to  an  "error-found"  subroutine.  One 
program  stop  may  be  made  on  line  856,  otherwise  completion  is  expected 
and  any  error  will  result  in  an  abnormal  termination.  Debugging  and  error 
correction  is  accomplished  by  an  examination  of  the  output.  Three  types  of 
errors  that  may  occur  are: 
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o  Data  (input)  errors  —  data  presented  in  a  mode  (integer  or  real 
alphanumeric)  other  than  expected  by  the  program  may  cause  an  error, 
which  will  be  presented  as  a  system  error. 

Data  presented  in  excess  of  the  reserved  arrays  may  induce  an  error. 
Debugging  of  data  must  be  accomplished  by  a  visual  examination  of 
the  data  files  (print  copy  or  at  the  terminal)  or  tracing  the  progress  via 
the  output  files. 

o  Program  error  -  program  errors  are  resolved  by  checking  the 
compilation  listing  and  obtaining  and  examining  a  relocatable  code 
listing  after  the  program  collection  ((9 MAP)  to  insure  that  all 
references  and  call  addresses  are  resolved.  A  post  mortum  dump  may 
be  produced  by  using  the  (9PMD  Executive  -  8  command  in  the 
runstream  and  then  examining  the  contents  of  the  instruction  (I  - 
BANK)  bank  and  data  (D  -  BANK)  bank. 

o  System  error  -  the  run  output  file  (TPF$)  will  list  the  system  diagnosed 
errors  for  subsequent  tracing  and  correction.  These  errors  often  occur 
as  result  of  an  error  in  the  runstream. 

SPECIAL  MAINTENANCE  PROCEDURES  -  No  special  maintenance 
procedures  are  developed  or  required  for  this  program. 
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Appendix  B 

Terms  and  Abbreviations 


APP 


OEM 


H 


COSAGE 


ELCON 

ESD 


HMS 

ITMID 

K-KILL 

LA 

LEA 

LIN 

LOC 


Ammunition  Post  Processor  -  A  related  group  of  computer 
software  programs  that  is  a  part  of  the  WARRAMP  methodology; 
used  to  compute  the  expected  consumption  of  ammunition  of 
selected  calibres  of  a  force  in  a  conflict. 

Concepts  Evaluation  Model  -  A  low  resolution  theater  combat 
model  that  simulates  the  combat  between  two  opponent  forces 
over  a  specific  period  of  time  producing  force  results. 

Combat  Sample  Generator,  a  high  resolution  model  that  simulates 
tactical  combat  between  a  red  and  blue  force;  a  production  model 
that  produces  force  on  force  results. 

Equipment  Loss  Consolidator. 

Equivalent  Stylized  Day  of  (Wartime)  combat  between  a  postured 
blue  and  red  force;  used  to  provide  an  activity  comparison 
between  forces. 

Heavy  Materiel  Supply  Units  (Companies). 

Item  Identification  File. 

A  catastrophic  kill  of  the  item  (target)  rendering  it  incapable  of 
returning  fire  or  movement  and  is  non-repairable. 

Lethal  area  of  indirect  fire  (area  type)  weapon  systems. 

Logistics  Evaluation  Agency. 

Line  Item  Number  (Code)  -  LINCODE. 

Lines  of  Communications. 


MIE 

M-KILL 

ODCSOPS 

PK 

RAM 


Major  items  of  equipment. 

A  hit  on  an  item  (target)  that  renders  it  immobile,  but  repairable 
and  capable  of  returning  fire. 

Office  of  the  Deputy  Chief  of  Staff  (Army)  for  Operations. 
Probability  of  Kill. 

Red  Artillery  Model. 

Returned  To  Duty;  personnel  or  repaired  equipment. 
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RTD 


SSPK 


SRC 

TAM 

TOE 

TRCONS 

TRMAP 

TRM 

WARF 

WIMP 


Single  Shot  Probability  of  Kill. 

Standard  Requirements  Code. 

Target  Acquisition  Model. 

Table  of  Organization  and  Equipment. 

Theater  Rate  Consolidation  data  file. 

Theater  Rate  Mapping  data  file. 

Theater  Rates  Model,  used  to  simulate  a  theater  conflict, 
generating  stylized  combat  periods;  used  to  compute  ammunition 
consumption  rates  for  several  weapon  -  munition  combinations. 

Wartime  Replacement  Factors,  also  known  as  Wartime  Active 
Replacement  Factors.  Rates  of  loss  or  specified  periods  or  time 
increments  for  selected  combat  materiel  items. 

WARF  Intermediate  Materiel  Processor. 
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